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Capitolul 8, Cuplări de echipamente periferice, 


interconectări şi aplicaţii 
ale microcalculatorului aMIC. n 


A 


În acest capitol se vor prezenta o serie de aplicaţii, care urmăresc atît 
extinderea gamei de echipamente periferice, cît și utilizarea microcalculato- 
rului în cadrul unor sisteme dedicate. Astfel, se descriu aplicaţii referitoare la 3 

— cuplarea la microcalculatorul aMIC a unor LED-uri şi comutatoare. 

— cuplarea la microcalculatorul aMIC a unui convertor numeric-analogic, 

— cuplarea  microcalculatorului aMIC cu  microcalculatoarele FELIX 
MI18, M118, 

— cuplarea la calculatorul aMIC a unui echipament de desenare şi indi- 
care pe ecran de tip „JOYSTICK“, 

— cuplarea unui convertor analog-numeric la microcalculatorul aMIG, 

— utilizarea  microcalculatorului aMIC pentru simularea unui circuit 
logic, 

— cuplarea miniimprimantei MIMA40 la microcalculatorul aMIC, 

— cuplarea unui programator de memorii de tip EPROM la microcal- 
culatorul aMIC, 

— mierocalculatorul aMIC cuplat cu terminalul DAF2010, 

— interfaţarea microcalculatorului aMIC cu un minirobot, 

— folosirea microcalculatorului aMIC în cadrul unui echipament pentru 
testarea microsistemelor orientate pe magistrală. 

— utilizarea  microcalculatorului aMIC ca unitate pentru deservirea 
mașinilor unelte, 

— utilizarea microcalculatorului aMIC ca sistem de înregistrare/redare a 
parametrilor semicontinui de proces, 

— utilizarea microcalculatorului aMIC în laborator pentru prelucrarea 
datelor provenite din analiza cromatografică. 


8.1. Cuplarea unor LED-uri și comutatoare 


Utilizînd interfața paralelă de care dispune microcalculatorul personal 
se pot conecta la acesta diferite dispozitive numerice. Cel mai simplu exemplu 
îl reprezintă cuplarea unor led-uri şi comutatoare. 

Interfața paralelă este constituită dintr-uu circuit 8290 suplimentar, 
care are liniile porturilor A, B şi C, fiecare de cite 8 biţi, legate la un conector 
de pe earcasa microcalculatorului. la portul A s-au conectat 8 comutatoare, 
fiecare avînd posibilitatea să furnizeze independent nivelele logice 1 sau $. 
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ba portul C s-au conectat 8 led-uri, care vor fi stinse sau aprinse, după cum 


biții corespunzători ai circuitului 8255 sînt 1 sau (0. Schema este prezentată 
în figura 8.1. 
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Fie. 8.1. Cuplarea unor led-uri și comutatoare. 


Pentru această aplicaţie circuitul 8255 suplimentar a fost programat 


în modul 0 de lucru cu portul C pentru icșire, iar porturile A și B pentru intrare. 
Adresele acestor porturi sint : 


— 40H: portul A; — 42H' portul C; 

— 41H: portul B; — 43H a portul de comandă. 

În continuare se prezintă programul care realizează citirea permanentă 
a comutatoarelor şi ufişarea stării acestora la led-uri. 


Program de aplicație pentru interfala paralelă 
START: MVI A, 92FH ; încarcă în acumulator cuvintul de comandă 


OUT  43H > transmite la circuitul 8255 
BUCLA : IN 40H ; citeşte portul A în acumulator 

CMA ; complementează acumulatorul 

OUT  42H ; transmite în portul C 

IMP BUCLA ; reluare. 


8.2. Cuplarea unui convertor numeric-analogic 


Microcalculatorul personal poate comanda un proces analogic simplu 
prin interiaţarea unui convertor numeric-analogic. Valoarea numerică ce este 


furnizată convertorului se obține ca urmare a unor calcule sau prin prelucrarea 
unor date externe. 
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În acest exemplu s-a realizat interfaţarea unui convertor numeric-analogic 
pe 8 biţi, DAC, la magistrala sistemului. Acest lucru a fost posibil deoarece 
semnalele magistralei de date, adresele şi comenzile au fost legate la un conec- 
tor de pe carcasă. Schema bloc a montajului este prezentată în figura 8.2. 


Fig. 8.2. Schema bloc pentru cuplarea unui convertor numeric analogic. 


Aceasta se compune din logica de decodificare a adresei, un registru de date 
de 8 biţi şi convertorul DACQS. Schema electrică completă a interfațării conver- 
torului se prezintă în figura 6.3. 

Realizarea semnalului analogic de la ieşire constă în înscrierea în registrul 
de date a unor valori numerice pe 8 biți la momente de timp bine stabilite. 

În continuare se prezintă programul în limbaj de asamblare care reali- 
zează la ieşirea convertorului un semnal în dinți de fierăstrău. Transmiterea 
dateler se face prin instrucţiuni de ieşire (OUT) cu adresa 6PH. 


Progr.m de aplicații pentru DACO8. 


STARI: MVI A,0 ; iniţializarea acumulatorului cu zero 


BUCLA: COUT  60H ; ieșire în resistrul de date 
INR A ; incrementează acumulatorul 


JUMP BUCLA ; salt la reluare. 
Pentru a varia perioada semnalului analogic se poate utiliza o subrutină de așteptare ; 


STAHI: MVI A, ; inițializarea acumulatorului cu zero 
BUCLA: COUT  60H ; înscrie în registrul de date 
INR A ; încrementează acumulatorul 


CALL WAIT  ; reglează perioada semnalului 
JMP BUCLA ; salt la reluare 
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Fig. 8.3. Schema cuplării convertorului numeric-analog DACO8 la ma- 
gistrala microcalculatorului „aMIC“. 
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WAIT: LXI  D,500H; această valoare reglează perioada 


PUSH PSW ; salvează acumulatorul 
ETl: DCXx* DD ; decrementează contorul 
MOV A,D ; încarcă registrul D în A 
ORA E ; SAU logic între A şi E 
INZ  ETl ; reluare dacă diferit de zero 
POP  PSW ; reface acumulatorul 
RET ; revenire în programul principal. 


8.3. Interconectarea cu microcalculatoarele Felix M1$8, M118 


Cuplarea microcalculatorului personal la sistemele de calcul FEL-IX M18 
şi M118 se face prin interfaţa serială standard RS 232. 


În acest scop „aMIC“ a fost dotat cu un con ctor de 25 de contacte la 
care sint legate semnalele circuitului 8251. Un conector asemănător există 
și la M18/118. 

Conectarea celor două sisteme se face printr-un cablu cu trei linii după 
schema prezentată în figura 8.4. Se utilizează conectori RACK cu 25 de contacte, 
de tip „tată“. 


a MIC M18/ 118 
L 
O REA 
3 3 
4 d 
II e 
6 6 
= =: 
205 29 


Fig. 8.4. Cablul de interconectare „aMIC* — 
FELIX M18/118. 


Ceilalţi pini din consctori, nzindicați în desen, sint lăsați neconectaţi. 

Pentru realizarea comunicaţiei pe fiecare din cele două sisteme rulează 
cîte un program. În continuare se prezintă un exemplu care transferă 109 de 
octeți din memoria microcalculatorului FELIX M18/118 de la adresa 6009H 
în memoria microcalculatorului „aMIG“ la adresa 660DH. Un asemenea procedeu 
este deosebit de util, deoarece pe M18/118 se pot introduce şi pune la punct 
programe complexe pentru „aMIC“ utilizindu-se resurse soltware evoluate 
disponibile pe aceste sisteme, apoi aceste programe sint transferate la micro- 
calculatorul personal pentru a îi rulate. 


În scopul realizării transferului de date pe microcalculatorul „aMIG* 
se rulează un program de recepție a octeţilor transmişi pe linia serială. 


7 Program de recepție a datelor pe linia serială 


SFART: MVI  A,0CEH ; cuvîntul de mod 
OUT 1 ; transmite la 8251 
MVI  A,27H ; cuvintul de comandă 
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OUT 1 ; transmite la 8251 
LXI  OH,6600H ; în H, L adresa de început 
MVI  C, 100 ; contorul de octeți 


BUCLA : IN 1 ; bucla de citire a stării circuitului 8251 
ANI 2 ; test bit 1 
JZ BUCLA  ; dacă 0, așteaptă 
IN ) ; citeşte octet 
MOV M,A ; înscrie în memorie 
INX H ; incrementează adresa 
DCR CC > decrementează contorul 
INZ BUCLA  ; dacă diferit de zero, reface 
JMP ; altfel intră în monitor 


Pe microcalculatorul FELIX M18/118 rulează un program de transmisie a octeților din: 
memorie pe linia serială. 


Program de iransmisie a datelor pe linia serială 


START: MVI  A,40H cuvintul de comandă pentru 8251 


OUT  0F7H ; realizează iniţializarea circuitului 
MVI  A,0CEH ; cuvintul de mod 
OUT  0F7H ; transmite la 8251 
MVI  A,27H > cuvîntul de comandă 
OUT  OF7H ; transmite la 8251 
LXI O H,6090H ; în H, L adresa de început 
MVI  C, 100 ; contorul de octeți 

BUCLA : IN QF7H ; citește starea 
ANI 4 ; test bit 2 
JZ BUCLA  ; dacă este zero, așteaptă 
MOV A,M ; citeşte octet din memorie 
OUT  OF6H ; transmite la 8251 
INX H > incrementează adresa 
DCR C ; decrementează contorul 
JIJNZ BUCLA ; dacă dilerit de zero, reluare 
RST ; revenire în monitor 


Cele două programe se execută în acelaşi timp, dar cu menţiunea că pro- 
gramul de recepţie a datelor se lansează primul. 


8.4. Cuplarea unui JOYSTICK 


Joystick-ul este un dispozitiv utilizat în conjuncţie cu terminalele grafice 
pentru specificarea manuală, de către utilizator, a coordonatelor unui punct 
pe ecran. 


Joystick-ul constă dintr-o articulaţie sferică, cu o manetă fixată de partea 
sferică mobilă, ale cărei deplasări unghiulare sînt transiormate în variații 
ale rezistenţei electrice a doi potențiometri, corespunzînd coordonatei orizon- 
tale, respectiv verticale. Variaţiile de rezistenţă sînt transformate apoi în va- 
riaţii de semnal electric, care — la rîndul lor — sînt convertite în valori numerice. 
Aceste valori numerice sînt preluate de sistemul de calcul și, prin metode 
s oftware sau hardware (la echipamentele care cer viteză mare de lucru), sînt 
transformate într-un punct sau cursor grafic, afișat pe ecran. Este posibilă: 
alișarea întregului traseu impus punctului curent, adică desenarea comandată 


Cuplarea unui JOYSTICK 13 


de la joystick. Este, de asemenea, posibilă introducerea unor funcţii suplimen- 
tare, care să permită utilizarea acestui dispozitiv în diferite aplicații. 

Cuplarea unui joystick la microcalculatorul „aMIC“ se face prin interme- 
diul interfeţei paralele, utilizînd numai patru biţi ai circuitului 8299. Schema 
prezentată în figura 8.5 conţine două circuite CDB4IDIE. 


Fig. 8.5. Interfaţă pentru joystick. 


CDB4IIE este un circuit basculant monostabil avînd două intrări de 
condiţionare active pe îront negativ şi o intrare activă pe front pozitiv. Tabela 
de funcţionare și configuraţia pinilor sînt prezentate în figura 8.6. Durata 
impulsului obţinut la ieşire se poate varia între 20 ns și 28 s utilizînd compo- 
nente pasive externe. Fără componente externe, avînd intrarea Rint conectată 


INTRĂRI IEȘIRI 
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L 
L 
Fă pm i 
i 
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H —nivel logic 1 
L —nivel logic O 


se DPI Sr LE 


Fie. 8.6. Tabela de funcţionare şi configurația pinilor la circuitul CDB 421E. 
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la Vcc, iar intrările Ce Și Rext/Cex+ lăsate neconectate, se obţine un impuls 
cu durata spec fică de 30—35 ns. 


Pentru valori ale capacităţii externe cuprinse între 10pF şi 10 uF iar 
ale rezistenţei externe cuprinse între 2K0 și 40 KO durata impulsului t se 
calculează cu formula : 


tip =0,7 Cezt 2 Rest 


în care capacitatea este în pF, rezistența în KO, iar durata impulsului se ob- 
ţine în ns. 

Pentru determinarea valorilor potențiometrelor, deci pentru a determina 
poziţia curentă pe ecran, se furnizează un impuls pozitiv (trecere de la () logic 
la 1 logic) pe bitul 0, respectiv 1al portului C din circuitul 8255. După furnizarea 
unui asemenea front pozitiv, se aşteaptă prin program o perioadă de timp 
care corespunde cu valoarea minimă a rezistenţe: potenţiometrului (poziţia 
stinga pentru orizontală, respectiv poziţia sus pcniru verticală), după care 
începe contorizarea pînă la terminarea impulsului furnizat de monostabil 
(trecerea din 1 logic în ( logic a ieșirii Q a acestuia) şi care este citit prin portul 
B în bitul Q, pentru orizontală, respectiv în bitul 1, pentru verticală. Bucla 
de contorizare din program este în așa îel calibrată încît, cu aproximaţie, să 
se înregistreze o valoare cuprinsă între 0 și FFEHI, ccrespunzătoare celor două 
poziţii extreme (pe orizontală şi — de asemenea — și pe verticală). În figura 
8.7 se prezintă semnificaţia valorilor celor două contoare și modul de determinare 
a adresei octetului pentru memoria ecran și al bitului din cadrul octetului de 
date. Deoarece memoria ecran este cuprinsă între adresele 4000H—5FFFH, 
în poziţiile cele mai semnificative A15—A13 se găsește configuraţia 010. 


| Determină bitul 
In cadrul 
octetului 


E Pi 
1514 13121109 8 7 6 54 32 10 
ADRESA 


Fig. 8.7. Determinarea adresei din memoria video şi octetul de 
date, pornind de la valorile celor două contoare VERT și ORIZ. 


Ceilalţi biţi de care dispune interfaţa paralelă se pot utiliza pentru imple” 
mentarea unor funcţii. În exemplul considerat se utilizează încă 6 biţi din por- 
tul B al circuitului 8255, avind următoarele semnificaţii : 

— PB7: RESTART — relansează programul de joystick ; 

— PB6G: MONITOR — execută revenirea în monitor (start de la adresa (> 


— PB: 
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DISPLAY — anulează o funcţie anterioară, realizînd numai 
afişarea punctului curent, fără să modilice imaginea de pe 
ecran (deci nici memoria video) ; 

DRAW — marchează traseul parcurs de la punctul curent pe 
ecran prin puncte aprinse (biţi O în memoria video): 
DELETE — şterge contururile de pe traseul parcurs de punctul 
curent, adică stinge punctele aprinse. În memoria video se 
înscrie 1 în biții egali cu ( de pe traseu; 

VIDEO — schimbă polaritatea punctelor de pe traseu (execută 
video invers). Această funcţie înscrie 1 în biții egali cu 0, res- 
pectiv înscrie 0 în biții egali cu 1 din memoria video. 


Programul de interfaţă pentru joystick este scris în limbaj de asamblare, 
iar organigrama sa este prezentată în îicura 8.8. După lansarea programului 
în execuţie, dacă nu se apasă nici un buton funcţional, ecranul este şters şi se 
afisează punctul curent care se deplasează simultan cu acționarea joys tick-ului 


START 
INIȚIALIZĂRI 


Stort 
odreso 0 


Fig. 8.8. Programul de interfaţă pentru joystick (organigramă) 
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De i 


Dacă se apasă oricare din butoanele DRAW, DELETE sau VIDEO, 
se execută în continuare funcţia respectivă (fără ca să se menţină butonul 
apăsat), pină cînd se apasă unul din butoanele RESTART, MONITOR sau 
DISPLAY. 

Programul prezentat în acest exemplu realizează o traducere a poziţiei 
articulației joystick-ului în coordonate pe ecran (respectiv adresă şi octet de 
date pentru memoria video). Dezavantajul acestei soluții este o sensibilitate 
deosebită a punctului curent (cursorului) de pe ecran față de orice mișcări 
ale tijci dispozitivului. Pentru eliminarea acestui neajuns se pot utiliza alte 
metode de interfațare a joystick-ului, ca de exemplu: 

— poziţia tijei (a articulației) să indice direcţia dintr-un număr finit 
şi eventual mic de direcții posibile şi viteza (trepte discrete de viteză) pentru 
cursorul de pe ecran. Deplasarea 
se face din poziţia curentă în 
direcția şi cu viteza date de 
joystick. Poziţia centrală a tijei 


/ REPEDE REPEDE corespunde cu poziția de repaus 
STINGA DREAPTA a cursorului. Această soluţie este 


SUS SUS. 


ilustrată în figura 8.9, pentru 
8 direcţii posibile şi două trepte 
de viteză; 

— cu ajutorul joystick-ulu 
se marchează un punct pe ecran 
după care o funcţie implementată 
pe sistem realizează unirea punc- 
tului curent cu noul punct mar- 
cat ; în felul acesta se pot exe- 


REPEDE 
DREAPTA |DREAPTA 
cuta desene pe ecran cu o 


recizie imă în limitele rezo- 
Fig. 8.9. Interpretarea poziţiilor tijei joystick- P a cai st 0 SIE o 
ului. luţiei disponibile. 


REPEDE 
JOS 


; Program de interfaţă pentru joystick 


ORG  6109H 
START: LXI  SP,STIVA 
CALL CLEAR 


iniţializare indicator de stivă 
șterge ecranul televizorului 


MVI A,9%H ; cuvînt de comandă: mod 
OUT  43H - înscrie în 8255 
LXI OH, 4000H ; iniţializare ADR2 
SHLD ADR2 
MOV A,M ; citește octet din memoria video 
STA  DAT2 ; iniţializează DAT2 

ETA: CALL PORTB ; citeşte port B şi test biții 7,6, 5 
JZ ET1 ; salt dacă PB7=PB6=PB5=1 


ETA! RAL * în CY trece PB? complementat 
JC START dacă PB7=0, relansare program 

în CY trece PB6 complementat 

dacă PB6=0, revenire în monitor 


JC V) 
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secvența DISPLAY pentru PB5=g 
DISPL: CALL COORD ; determină coordonatele curente 


LHLD ADR2 : în H, L vechea adresă 
LDA  DAT2 ; în H, L vechiul octet 
MOV M,A ; reface în memoria video 
LHLD ADRI1 ; în H, L noua adresă 
MOV A,M ; citește octetul de date 
STA  DAT2 ; salvează data 
SHLD ADR2 ; și adresa 
MOV B,A ; salvează în registrul B 
LDA DATI ; încarcă în A noul octet de date 
ANA BB ; aprinde punctul curent 
MOV M,A ; înscrie în memoria video 
JMP  ET2 ; reluare 

ETIl!: MOV A,B ; reface A cu conţinutul portului B 
ANI  10H ; testează bitul PB4 
INZ  ET3 ; salt dată PB4=1 

ș secvenţa DRAW pentru PB4=6 

DRAW: CALL COORD ; determină coordonatele curente 
LHLD ADR1 ; în H, L noua adresă 
MOV B,M ; în B octetul de date vechi 
LDA DATI ; citește noul octet de date 
ANA B ; aprinde punctul curent 
MOV M,A ; înscrie în memorie 
CALL PORTB ; citește port B și test biții 7, 6, 5 
INZ O ETA4 ; salt dacă cel puţin un bit este 0 
IJMP DRAW ; altfel, reluare 

ET3: MOV A,B ; reface A cu conţinutul portului B 
ANI 8 ; testează bitul PB3 
INZ  ET5 ; salt dacă PB3=1 

3 secvența DELETE pentru PB3=g 

DELET : CALL COORD ; determină coordonatele curente 
LHLD ADR1 ; în H, I. noua adresă 
MOVv B,M ; citeşte în B vechiul octet 
LDA DATI ; încarcă în A noul octet 
CMA ; complementează 
ORA B ; stinge punctul curent 
MOV M,A ; înscrie în memoria video 
CALL PORTB ; citește port B și testează biții 7, 6, 5 
INZ  ETA4 ; salt dacă cel puţin un bit este Ș 
JMP  DELET ; reluare 

ET5: MOV A,B ; relace A cu conţinutul portului B 
ANI 4 ; testează bitul PB2 
JNZ  DISPL ; salt dacă PB2=1 

; secvența VIDEO pentru PB2=60 

VIDEO: CALL COORD ; determină coordonatele curente 
LHLD ADRI ; în H, L noua adresă 
MOV B,M ; în B octetul de date vechi 
LDA  ADRI ; în A noul octet 
CMA ; complementează octet 
XRA B ; complementează punctul curent 
MOV M,A ; înscrie în memorie 
CALL PORTB ; citește portul B și testează biții 7, 6,5 
INZ  ETA4 ; salt dacă cel puţin un bit este 0 
JMP VIDEO ; reluare 
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4 subrutina COORD 
ş determină coordonatele punctului curent 
ş furnizează la ADRI1 adresa din memoria video 


ş șila DATI octetul de date 


GOORD : MVI 


CALL 
STA 
MVI 
CALL 
STA 


D, 2 
AY 
ORIZ 
D,1 
XY 
VERT 


setează bitul 1 

determină coordonata X 
memorează și variabila ORIZ 
setează bitul 6 

determină coordonata Y 
memorează în variabila VERT 


9 secvenţa care determină adresa pentru memoria ecran 
9 și octetul de date 


AD2: 


ADi: 


LXI 

LDA 
ANI 

RRC 
RRC 
RRC 
MOV 
LDA 
ANI 

RRC 
RRC 
RRC 
ORA 
MOV 


LDA 
ANI 

RRC 
RRC 
RRC 


RET 


ş subrutina XY 
J poziţionează contorul pentru orizontală 
? sau pentru verticală 
ş furnizează rezultatul în A (contor între 0 și FFH) 


XY: 


XYL; 


H, 4000H 


ORIZ 
0FBH 


A, 0 
42H 
A, D 


42H 


C, PFFH 


41H 
D 


_ „-. .. -.. 9 „.. v.. .. 


„. .. .. - * 


. 
? 
. 
L] 
. 
? 
? 
L] 


iniţializare H, L 

citește contorul pentru orizontală 
anulează biții A2-A 

aduce A7-A3 în poziţiile A4-AG 


încarcă în registrul L 
citește contorul pentru verticală 
preia biții A2-A() 


; aduce informația în poziţiile A7-A5 


concatenează cu informaţia din L 
încarcă în registrul L octetui mai puţin semnifizaitv do 


* adresă 


citește contor pentru verticală 
preia biții A7-A3 
aduce în poziţiile A7-AG 


concatenează cu informaţia din H 

încarcă în registrul H octetul mai sermrificativ c3 adresă 
depunde adresa la ADR1 

citeşte contorul pentru orizontală 

preia biții A2-AG 

încarcă în L 

iniţializare octet date 


; poziţionează indicatorii 
; dacă L=6, stop 


altfel, deplasează bit=( (punct aprins) 
reluare 
depune octetul de date la adresa DATI 


bit 0, bit 1=—0 din portul Cal circuitului 8255 
trimite la 8255 
poziţionează pe 1 bitul corespunzător pentru orizoatală 


; sau pentru verticală 
; trimite la 8255, declanșează monostabilul 
; inițializare contor 


; citește port B al circuitului 8255 
; test bit 1/0 
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JZ X Yi ; așteaptă impulsul monostabilului 

MVI A,4 ; secvenţa se execută de patru ori 
WAIT: MVI B,84H ; contor 

DCR BB 

INZ  OWAIT+2 

DCR A 

INZ WAIT 


» începe incrementarea contorului 
XY2: INR CC 


IN A1H ; citește port B 
ANA D ; test bit 0/1 
NOP ; calibrarea contorizării 
NOP 
NOP 
INZ  XY2 ; aşteaptă terminarea impulsului 
MOV A,C ; transferă rezultatul în A 
RET 
; zona de variabile program 
ORIZ: DS 1 ; contorul pentru orizontală 
VERT: DS 1 ; contorul pentru verticală 
ADRIl: DS 2 ; adresa nouă pentru memoria video 
ADR2: DS 2 ; adresa veche 
DATI1: DS 1 ; noul octet de date 
DAT2: DS 1 ; vechiul octet de date 
DS 10 ; stiva program 
STIVA:; DS 1 


END START 


8.5. Cuplarea unui conventor analog-numeric 


Microcalculatorul personal are posibilitatea să efectueze măsurări de 
mărimi analogice, eventual extrase dintr-un proces, prin conectarea unui con- 
vertor analog-numeric. Interfaţarea convertorului la sisten: se face prin tircui- 
tul 8255 suplimentar (interfaţa paralelă). Se poate executa conversia unei 
singure mărimi analogice sau a mai multora succesiv; în acest iltim caz, 
mărimile analogice sînt aduse la intrarea convertorului prin 'i:termediul 
unui multiplexor analogic. Selecţia, intrăriloră multiplexorului se ice prir 
intermediul circuitului 8255. 

Schema de principiu este prezentată în figura 8.10. Se utilizează un nat 
plexor analogic 16 : 1, iar selecţia se realizează prin biții PC3-PCD ai puriuiu, 
€ cin circuitul 8255. Convertorul analog-numeric este pe 12 biţi, avind o iiitzars 
de comandă START conversie, conectată la bitul PC7 al circuitului 8292. Un 
front pozitiv pe această intrare lansează operaţia de conversie. Biţii de vate 
inferiori D0—D7 sînt conectaţi la pinii PAD-PA7, iar biții de qate superiori 
D8-D11 la pinii PBO-PB3. De asemenea, convertoru! mai dispune de un semnal 
pentru a anunţa sfîrşitul conversiei, SIOP conversie, conectat la „pinul PB7. 

În continuare se prezintă lista instrucțiunilor de intrare/ieşire și semniti- 
caţiile fiecăreia : 

OUT 42H ; biții A3— AG selectează una din cele 16 intrări analogice 
OUT 42H ; bitul A7=1 lansează operaţia de conversie 


20 Cuplări de echipamente periferice, interconectări și aplicaţii 


INTRĂRI 
ANALOGICE 


i 


| 
| 
| 
4 
| 


RTOR 
ANALOG 
NUMERIC 


MULTIPLEXOR 
ANALOGIC 
6? 


SELECTIE 
Sp S1 S2 S3 


Fig. 8.10. Cuplarea unui convertor analog-numeric. 


IN 41H; citeşte în A7 bitul STOP conversie 
IN 40H; citeşte în A7—AG biții de date D7—D0 numai după terminarea 
; conversiei 

IN  41H; citeşte în A3—A0 biții de date D1l—D8 
OUT 42H ; bitul A7=—60 resetează convertorul 

Programul care urmează execută succesiv conversia analog-numerică a 
celor 16 intrări înscriind rezultatele în memorie, fiecare pe cite doi octeți în- 
cepînd de la adresa LISTA. 


; Program de inlerfațare a unui converlor analog-numeric 


MVI  A,92H programare circuit 8255 


OUT  43H ; trimite în portul de comandă 
LXI  H,LISTA ; H, L conţin adresa în zona de memorie 
MVI BB, ; selecţie intrare analogică 

ET1: MOV  A,B ; transferă cod de selecţie în A 
OUT  42H - resetează convertorul A7-0 
ORI  80H ; A7=l 
OUT  42H ; start conversie 

ETA: IN 41H ; citește starea 
RAL > A7=STOP trece în CY 
INC  ET2 ; dacă STOP=0, aşteaptă 
IN 40H ; citeşte biții de date D7-D9 
MOV M,A ; înscrie în memorie 
INX H - incrementează adresa de memorie 
IN 41H ; citește biții de date D11-D8 
ANI  OFH ; selectează biții A3-A0 


înscrie în memorie 
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INX H ; incrementează adresa de memorie 
INR BB ; incrementează contorul de selecţie 
ANI  OFH ; test sfirșşit achiziţie 

INZ  ET1 ; reia dacă nu este gata 

JMP NEXT ; altfel execută prelucrarea datelor 
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Microcalculatorul „aMIC“ poate fi utilizat în (proiectarea schemelor 
logice, înlocuind îaza de sinteză a circuitelor și de punere la punct cu ajutorul 


osciloscopului, analizorului logic etc. 


În acest fel se poate economisi timp şi efort material. 


Pentru cxemplifi- 


care, se consideră o interfaţă simplificată care conectează un echipament peri- 
feric de ieşire la un microsistem construit tot cu microprocesorul Z80 (fisura 8.11). 


ECHIPAMENT |! 
PERIFERIC 


INTERFATA 


CIC 


SISTEM 


MICRO 


Fig. 8.11. Interfaţarea unui 
microsistem cu Z80. 


echipament periferic la un 


Interfața este cuplată la magistrală prin următoarele semnale (figura 8.12) : 
— RESET : activarea acestui semnal are ca efect inițializarea interfeţei 


şi abandonarea eventualei operaţii curente ; 


RESET 
ORO 
îi INTERFATA ză 
MAGISTRALAN IR PENTRU UN 
SISTEM ECHIPAMENT 
A5 DE BUSY 
| IESIRE 
WAIT 


Fig. 8.12. Semnalele conectate la interfaţa. 


ECHIPAMENT N 
PERIFERIC 
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— IORQ activ: (0 logic) şi MI inactiv (1 logic) indică ciclu de I/E ; 

— WR activ (0 logic) indică sensul transferului (de la UCP la echipamen- 
tul periferic). 

— A5 este utilizat pentru selectarea interfeţei. Deoarece microsistemul 
are un număr redus de dispozitive de intrare/ieşire, în cadrul octetului de adresă 
de I/E biții A7—A2 sînt utilizaţi pentru selectarea cite unui circuit (fiecare 
bit, activ pe 0, controlează un dispozitiv), iar biții Al și A, eventual pentru 
selectarea porturilor interne. Deci în octetul de adresă pentru interiață bitul 
A5 este 6, _0, toți ceilalți biţi fiind 1. 


— WAIT este conectat la intrarea WAIT a microprocesorului, permițînd 
a daptarea vitezei de lucru a unității centrale de prelucrare la viteza echipamen- 
tului periferic. 

Semnalele generate de interfață pentru echipamentul periferic de ieșire 
sînt următoarele : 

— GO, generat la selectarea interfeţei şi utilizat pentru preluarea 
datelor de pe magistrală într-un registru de date; 

— BUSY, generat de activarea semnalului GO şi avînd o durată fixă, 
0.5 ms, timp în care echipamentul realizează operaţia de transfer a datelor 
pe suport extern. 

În figura 8.13 se prezintă diagrama de semnale pentru un ciclu de acces 
la interfaţă (a) şi schema electrică (b). 


IORG ———— 


MT 


Ag— A7 


( EEE a) 


CDB 
4121 € 
UŞY 


b) 


Fig. 843. Diagrama de semnale (e) şi schensa 6) ale intartaței. 
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În loc să se construiască 
fizic această schemă și să se veri- 
fice prin metode hardware, utili- 
zînd osciloscop, analizor logic, 
etc. ... funcţionarea corectă se 
poate verifica prin program, uti- 
lizînd microcalculatorul „aMIC“. 
Conectarea microcalculatorului la 
microsistemul cu Z80 se poate 
face prin interfața paralelă. În 
acest scop se utilizează un circuit 
Z8)-—PIO cuplat extern la ma- 
gistrala „aMIC“-ului. În figura 8.14 
este prezentat circuitul Z8O-PIO 
şi semnalele de cuplare la ma- 
gistrală. 

Astfel, în microsistemul cu 
Z80 interfaţa de testat a fost 


€/5 Sel 


B/Ă Sel 


Fig. 8.14. Cuplarea eireuitului Z8BPIO la 
magistrala micreealculatorului „aMIC*. 


înlocuită cu microcalculatorul „aMIC“ (fig. 8.15). Semnalele interfeţei de 
ouplare la unitatea centrală de prelucrare și la echipamentul periferic de 
ieșire, au fost legate la liniile portului A din circuitul Z8O-PIO, programat 


în modul 3 (control bit). 


MICROSISTEM 
CU 
280 


MAGISTRALA 


= 


Fig. 8.15. Schema de principiu pentru simularea 


interfeţei. 


Deoarece intrarea CE a circuitului a fost conectată la ieșirea 3 a decodifi- 
catorului (CDB442E) de adrese de I/E (semnalul PIO), iar terminalele €/D 
Sel și B/A Sel la liniile de adresă ABB, respectiv ABi rezulţă adresele porturilor 
din circuit (biții neutilizați s-au considerat $): 


60H : port*A date; 
G1H : port A control; 
62H : port B date; 
63H : port B control. 


Asignarea semnalelor interfeţei la liniile portului A este prezentată in 


figura 8.16. 
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Programul de simulare cuprinde trei secvenţe principale : 
— secvența de iniţializare, inclusiv programarea circuitului Z8)PIO 
(figura 8.17); 


MEMORIA 
Semncie 
conectate 
la 280  P10O 
interfată 
pentru CI Ca] 
echip. A 6600 
per iferic 
DE 
TRATARE 
Fig. 8.16. Asignarea semnalelor inter- Fig. 8.18. Răspunsui la întreruperea ge- 
feței la liniile portului A din Z80-PIO. nerată de Z80-PIO. 


_1FH [000 lau 


linile 4- “linie 220 programate pentru introre 
Za liniile 7 —9 programate pentru iesire 


——Govint c control pentru întreruperi 
urmeoză masca 
limile care pot genera întreruperile sint active pe O 
conditie AND/OR [există o singură linie ) 
intrerupere activat6 


en: 


Los linia O poate genera întrerupere 
L_a- liniile 7-1 mascate 


0Q0H [0 00000 0 0 


vectorul de adresă 


Fig. 8.17. Cuvintele de control pentru programarea circuitu-- 
lui Z80-PIO. 
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— bucla de simulare; 
— subrutina de tratare a întreruperii generate de activarea semnalului 
RESET (tehnica de răspuns prezentată schematic în figura 8.18). 


4 Progrumareu circuitulu: Z8O-PIO 


600pH 


LD A, OFFH 
OUT  (61H),A 


LD A, 1FH 
OUT  (61H),A 
LD A, 97H 


LD A, 0 
OUT (61H),A 


; setează modul 3 (control bit) 

; transmite în portul A control 

; liniile 7, 6, 5 programate pentru 

; ieşire şi liniile 4, 3, 2, 1, 0 pentru intrare 
; cuvîntul de control pentru întreruperi 


; numai bitul 0 (RESET) poate genera 
; întrerupere 
; vectorul de întreruperi 


; Iniţializarea sistemului de întreruperi la UCP 


IM2 
LD A, 6GII 
LD I, A 


LD HL, 7000H 


; setează modul 2 de răspuns la întreruperi 
; încarcă registrul I 


; adresa subrutinei de tratare a întreruperii 


LD (66001), HL ; memorează la adresa 660pH și 6601H 
; Iniţializare semnale de ieșire PIO 


SIMUL: LD A, 80H 
OUT  (60H),A 
EI 


; iniţializare port A 
; WAIT=1, GO0=0, BUSY=90 
; activarea sistemului de întreruperi 


; Bucla de simulare a interfeţei 
; Așteaptă selectarea interfeţei 


BUCLA : IN A, (60H) 
AND  1EH 


XOR 4 


; citește liniile portului A 
; selectează biții 4, 3, 2, 1_ _ 
; testează semnalele A5, WR, MI, IORQ 


JR NZ, BUCLA ; dacă cel puţin un bit nu este activ așteaptă 


; Interfața a fost selectată, ACC=0 
IN A, (60H) ; citește portul A 
SET S5,A ; poziţionează GO=1 
OUT  (60H),A ; înscrie în portul A 
; Trecerea în 1 a semnalului GO declanșează monostabilul 74121 
SET 6,A ; poziţionează BUSY=1 
OUT  (60H),A ; înscrie în portul A 
; Activarea lui BUSY, resetează semnalul GO 
RES 5,A ; poziţionează GO=0 
OUT  (60H),A ; înscrie în portul A 
; Întirziere de 0,5 ms, timp necesar pentru terminarea operaţiei de ieșire 
LD A, 3DH ; constanta de întirziere pentru 
DELAY :DEC A ; frecvenţa ceasului 2MHz 
JR NZ, DELAY 


; La sfirșit dezactivează BUSY și WAIT 
IN A, (60H) ; citește portul A 
SET 7,A ; WAIT=1 
RES 6,A ; BUSY=p 
OUT  (60H),A ; înscrie în portul A 
; Aşteaptă terminarea accesului 


STOP: IN A, (60H) ; citește portul A 
AND  1EH ; selectează biții 4, 3, 2, 1 
XOR 4 ; inversează M1 (semnale active pe 9) 
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JR Z, STOP ; dacă ACC=0, așteaptă 


JR LOOP : dacă ACC=1, reia secvenţa 
; Subrutina de tratare a întreruperii generate 
; de activarea semnalului RESET 


ORG  7?000H 

EX AF, AF" ; salvare stare program 

EXX ; numai dacă este necesar — în acest exemplu ; nu este necesar 

POP  HL ; înlocuiește adresa de revenire din 

LD HL, SIMUL ; stivă cu adresa de relansare a 

PUSH HL ; programului de simulare 

EX AF, AF“ ; aceste două instrucțiuni nu sînt 

EXX ; necesare — în general sînt utilizate pentru refacerea stării 
; programului întrerupt 

RETI ; return 

END 


8.7. Cuplarea la microcalculator a unei 
miniintprimante MIM49 


Miniimprimanta  MIM40 (produsă la FElectromureş Tg. Mureș) este o 
imprimantă paralelă cu 40 de caractere într-un rînd, fiecare coloană de caracter 
fiind formată din 7 puncte, fiecărui punct îi corespunde în sistemul electric 
de imprimare un ac de imprimare. 

Formatul unui caracter este dat în figura 8.19 (7 linii X 9 coloane). 

Fiecare punct din matricea de imprimare este controlat prin soitware. 

Din punct de vedere mecanic, transportul capului de imprimare se reali- 
zează cu un tambur dispunînd de un ghidaj elicoidal ca în fig. 8.20. 


Fig. 8.19. Formatul unui caracter  Pig. 8.20. Tambur pentru transportul capului 
(exemplul A). de imprimantă. 


În timpul cursei active a capului de imprimare se realizează imprimarea 
a 40 de caractere iar semnalul de stare a capătului de cursă activă şi a cursei 
inverse este la nivel 1 logic. 


La capătul cursei active acest semnal devine 6 logic şi rămîne pe această 
valoare tot timpul cursei inverse. Semnalul de stare este generat printr-un 
sistem mecanic rigidizat cu tamburul. 


Schema interfeței de cuplare a microcalculatorului aMIG cu miniimpri- 
manta este prezentată în figura 3.21. 
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Fig. 8.21. Schema interfeţei de cuplare a microcelculatorului cu miRiimprimanta 
MIM40. 
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Descrierea interieţei 


Miniimprimanta este cuplată la microcalculator prin intermediul unei 
interfețe periferice programabile 8255, care comandă prin software schema 
electrică de imprimare şi preia starea curentă de poziţie a tamburului. 

Portul A al interfeţei periferice programat ca ieșire asigură cele 7 semnale 
de comandă a solenoizilor acelor de imprimare precum şi semnalul de comandă 
a motorului care acționează tamburul. 

Comanda solenoidului se realizează printr-un etaj de comutare, realizat 
cu un montaj Darlington, prevăzut cu protecţie la tensiunile inverse induse 
în solenoid. (dioda D2). 

Comanda acționării motorului este realizată printr-un montaj Darling- 
ton, care generează semnalul de comandă, pentru un triac care asigură excitația 
motorului la 110 V c.a. 

Imprimarea unei linii decurge astiel: 


Întrucît poziția capului de imprimare poate fi presupusă oarecare, comanda 
de acţionare a motorului trebuie să asigure poziţionarea la capăt de rînd a capu- 
lui înaintea imprimării. Astiel, dacă semnalul de stare este pe 1 logic, se comandă 
rotirea motorului pină la anularea acestui semnal, parcurgîndu-se astfel restul 
de cursă directă pînă la capătul de cursă. Cu motorul acţionat programul de 
comandă asigură o buclă de așteptare de aproximativ 7 ms timp în care capul 
de imprimare ajunge la începutul cursei directe. 

Se testează din nou semnalul de stare și dacă nu a devenit încă 1 logic 
se așteaptă modificarea sa (cu motorul acționat). Programul de imprimare 
presupune existenţa într-o zonă tampon de date a celor 49 eoduri ASCII cores- 
punzătoare caracterelor care trebuie imprimate. 
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Înainte de imprimarea unui caracter, din codul ASCII corespunzător 
se generează adresa corespondentă din generatorul de caractere. 

Acesta conține, codificat pe cite 5 octeți, configurația tuturor caracterelor 
care pot fi imprimate, în ordinea codurilor ASCII. 

După preluarea primului octet, care constituie prima coloană a caracteru- 
lui, (avînd întotdeauna bitul 7 poziționat pe 1 logic: comanda motorului 
activă) acesta este transmis în interfaţa periferică programabilă și se declan- 
șează o buclă de aşteptare de 0,25 ms, timp în care solenoizii corespunzători 
sint acţionaţi executînd imprimarea coloanei. 


La terminarea buclei de așteptare în portul de ieşire este înscris doar 
bitul de acţionare a motorului poziționat pe 1 logic. Se generează o pauză de 
1,29 ms necesară parcurgerii spaţiului dintre două coloane, iar apoi se repetă 
algoritmul de imprimare coloană. 


Între două caractere consecutive programul generează o pauză de 2,5 ms, 
timp în care se acționează în continuare motorul. 

Avansul capului de imprimare se poate opri pe parcursul unei linii dar 
nu este posibilă întoarcerea la începutul cursei directe, decît prin imprimarea 
de blancuri în restul liniei. După terminarea imprimării celor 40 de caractere 
se generează bucla de aşteptare a căderii pe zero a bitului de stare. După 
aceasta se generează o pauză de ordinul 130 ms acoperitoare pentru cursa 
inversă, iar apoi se oprește comanda motorului. 

Durata pauzelor introduse în program sînt astiel alese încit imprimarea 
a 4 puncte alăturate să genereze un pătrat. 

Micşorînd pauza între imprimarea a două coloane succesive se poate mări 
numărul de caractere imprimate pe o linie. 

Spaţiul între două linii succesive este generat automat prin forma ghida- 
Jului elicoidal de pe tambur, ueci distanţa între dovă linii imprimate este în- 
totdeauna aceeaşi. 


Prezentarea programului de imprima 


Înainte de lansarea subrutinei de imprimare a unei linii, programul de 
imprimare trebuie să asigure încărcarea unei zone tampon de date avînd lun- 
gimea de 40 de octeți, cite un octet pentru fiecare cod ASCII care urmează 
să fie imprimat. După încărcarea zonei tampon, subrutina de imprimare poate 
fi executată iar pentru imprimarea unei pagini se repetă secvența de operaţii : 
încărcarea zonă tampon — execuţie subrutină imprimare linie. 

Subrutina de imprimare ia în considerare numai coduri cuprinse între 
20H și 5FH pentru alte coduri imprimînd blanc. Generatorul de caractere 
conține cifrele zecimale, literele majuscule de la A la Z și următoarele carac- 
tere speciale : blanc, ?, „“, ,$,,, (), "+, =. 

Subrutina de afişare a unei linii este prezentată în cele ce urmează : 


IMPRIM!: PUSH H 
LD A,81H 
OUT 43H ; programarea interfeței 8255 
XOR A 
OUT 42H 
LD HL,BUFTIP ; HL-adresa zonei tampon 
LD B, 28H ; 49 caractere pe linie 


TIP 2: 


TIP 1: 


TIP 3: 


TIP 7: 


TIP 4: 
TIP 5: 


TIP 6: 


TIP 8: 


PAUZA : 
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IN A, 42H 
AND 01 
LD A, 80H 
OUT 40H A 
JP Z, TIP1 
JP TIP2 


LD DE, CONT4 
CALL PAUZA 


IN A, 42H 

AND gl 

JP Z, TIP3 
LD A, (HL) 
CP 20H 

JP C, TIP4 
CP 6gH 

JP C, TIP5 


LD A, 20H 


INC HL 
PUSH HL 


; se comandă motorul 


; se așteaptă pînă ce bitul de stare 
; devine „0“ 


; pauză de început linie 


; se așteaptă pină ce bitul de stare devine „1“ 


; Codurile ASCII care nu aparţin 
(20, 5F] se înlocuiesc cu 20H. 


- Salvează adresa caracterului următor 


LD HL, TAB-0AGF 


LD D, 00 

LD E,A 
ADD HL, DE 
ADD HL, DE 
ADD HL, DE 
ADD HL, DE 
ADD HL, DE 
LD C, P5H 


LD A, (HL) 
OUT 40H A 
LD DE, CONT1 
CALL PAUZA 
LD A, 80H 
OUT 40H A 
LD DE, CONT2 
CALL PAUZA 
INC HL 

DEC C 

JP NZ, TIP6 
LD DE, CONT3 
CALL PAUZA 
POP HL 

DEC B 

JP NZ, TIP? 
IN A, 42H 
AND 01 

JP NZ, TIP8 
LD DE, CONI5 
CALL PAUZA 
XOR A 

OUT 40H A 
POP H 


JP NZ, PAZUA 
RET. 


; Calculul adresei din generatorul de caractere a codului 
din Acc. 
Nr. de coloane într-un caracter 


Se încarcă 8255 cu o coloană de imprimare 


; durata de acţionare a solenoizilor 


comandă motor 


pauză între 2 coloane succesive 


pauză între 2 caractere 


dacă mai sînt caractere de imprimat 


se așteaptă ca bitul de stare să devină „0“ 


pauză necesară cursei inverse 


oprire motor. 
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Configuraţia semnalelor la conectorul de interfață cu miniimprimanta 


1. PA7 bufferat 9. PB7 17. PC7 
2. PA6 bufierat 10. PN6 18. PC6 
3. PA5 bufferat 11. PB5 19. PC5 
4. PA4 bufferat 12. PB4 20. PC4 
5. PA3 bufferat 13. PB3 21. PC3 
6. PA2 buiferat 14. PB2 22. PC2 
7. PA1 bufferat 15. PBi1 23. PC1 
8. PAG buiferat 16. PB 24. PC 
25. GND. 


8.8. Cuplarea microcalculatorului cu un programator 
de EPROM 


Programatorul asigură posibilităţi de programare pentru circuitele EPROM 
de tipul Intel 2716. 
Configuraţia circuitului este următoarea (fig. 8.22). 


Fig. 8.22. Configuraţia ter- 
minalelor circuitului 2716. 


Semnificaţia semnalelor : 
Dp)—D7 = date intrare/ieşire 
AD—A10 = adrese 


Vpp = selecție regim de programare 
OE == validare ieşire 
CE = intrare selecţie circuit 


Modurile de lucru ale circuitului sînt prezentate în figura 8.23 a, unde 
ge pun în evidenţă condiţiile în care se realizează fiecare regim : citire, progra- 
mare, verificare. 

Regimul de programare, verificare este selectat Iorţiînd lu intrarea Vpp 
o tensiune de 25 V. | 

Datele de intrare trebuie să fie stabile înainte şi după pulsul de programare, 
minimum 2 n 2 ps: Pulsul de programare durează între 45 şi 59yus şi estelivrat 


circuitului ja intrarea CE de nivel TIL (fig. 6.23b). 
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Wig. 8.23. Memoria EPROM 2716. Regimurile de lucru (a), diagramele de timp (b). 


În figura 8.24 este prezeniată schema bloc de interfaţare a programato- 
rului la microcalculator. 


Interfaţarea este realizată utilizîndu-se adresarea diferitelor operaţii ca 
porturi. Atit datele, adresele cit şi comenzile sînt livrate programatorului 
prin interfața periferică programabilă, fiind memorate în registre cu încărcare 
paralelă (CDB495). 


Descrierea funcţionării progrumatorului (fig. 8.25) 


Dispozitivul este cuplat la magistrala externă de date a microcalcula- 
torului, necesitînd semnale de adresă (AB3, AB4) și semnale de comandă 
(RDB, IOREQ). 


Semnalele de adrese şi comenzi sînt folosite pentru decodarea celor 6 
selecții necesare funcționării programatorului. Transferul de date din/înspre 
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Fig. 8.24. Interfața microcalculator-programator EPROM. 


programator se realizează prin instrucţiuni de intrare/ieşire. Codurile portu- 
rilor I/O sînt astfel construite încit selectează magistrala externă de date 
prin cuartetul superior şi porturile din programator prin cuartetul inferior. 


Adresele sînt prezentate programatorului octet cu octet fiind încărcate 
în registrele tampon de adrese iar datele sint înscrise în registrul tampon de 
date sau citite din EPROM prin butferele de separare de tipul 7409, 

Pentru protejarea memoriei EPROM ieșirile registrului tampon de date 
au fost bufferate cu circuite „trei stări“ de tipul 74123. 

Pe pinul de alimentare Vec al circuitului EPROM se aplică tensiune 
de +5 V programată. În timpul introducerii respectiv scoaterii circuitului 
2716 din soclu tensiunea de alimentare nu ajunge la circuit. 

Deschiderea liniilor de ieşire din tamponul de date spre circuitul EPROM 
se comandă prin înscrierea unui bit corespunzător într-un registru de comenzi. 

Întrucît, în funcţie de regimul de lucru, intrarea Vpp a circuitului 2716 
este forțată pe 5 V (în regim de citire) respectiv 25 V (în regim de programare/ 
verificare) s-a prevăzut un circuit de comutare nivele de tensiune comandat 
tot printr-un bit înscris în registrul de comenzi. 

În timpul operării cu memoria EPROM s-a prevăzut posibilitatea de pre- 
luare a stării tensiunilor Vpp, respectiv Vec, prin citirea pe magistrala de date 
a unui cuvînt de stare. În funcţie de nivelul tensiunii Upps21V bitul 0 din 
cuvintul de stare este poziţionat pe 1 sau zero logic. 

Bitul 1, din cuvintul de stare este poziționat pe 1 logic dacă EPROM-ul 
nu este alimentat cu tensiunea +5V. 
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? Q 
IN 40 Date D?7 — DO (citire ) 
7 ] O 
? 9) 
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Fig. 8,26. Instrucţiuni de I/E. 
Semnificaţia informaţiei transferate în urma apelării unui port reiese 
din figura 8.20. 


Organigrama programului de scriere/verificare a EPROM-ului 


Deoarece programatorul nu este prevăzut cu posibilități de RESET-are, 
la cuplarea tensiunii este nevoie ca programul să fie lansat înainte de a intro- 
duce cipul de memorie în soclu, pentru a poziţiona corect registrul de comenzi 
(o configuraţie întîmplătoare a acestuia ar putea pune în pericol cipul de memo- 
rie EPROM). După lansare, programul execută inițializările necesare şi afi- 
şarea mesajului : 


PROGRAMATOR 2716 
COMPL (D, N) 


În funcție de răspunsul operatorului D sau N, informaţia din EPROM 
se consideră complementată sau nu. În continuare se afișează prompterul (*) 
și se aşteaptă comenzi. Programul acceptă un număr de 7 comenzi, ale căror 
acţiuni vor îi descrise în continuare. 


Comanda A (alimentări) verifică prezenţa tensiunilor de +5 V şi +29 V 
la pinii 24 și respectiv 21 ai soclului în care se amplasează EPROM-ul. Co- 
manda constituie un test pentru funcționarea comutatoarelor de tensiune, dind 
diferite comenzi și preluînd cuvîntul de stare. Testul se execută de preferință 
cu soclul liber. 

Comanda V (veriiicare) operează cu memoria EPROM în regim citire, 


verificînd dacă toate locaţiile memoriei sînt FF. Dacă există erori de „ștergere“ ale 
memoriei, se va afişa adresa și octetul corespunzător şi se așteaptă decizia 
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operatorului de a continua verificarea, cu (CR) sau de a revenila prompter, 
cu orice altă tastă. La sfirşitul verificării se va afişa numărul total de erori 
de ştergere. 

Comanda T (transfer) execută transferul zonei de memorie EPROM 
cuprinsă între ADR.ÎNCEPUT SURSA ȘI ADR. SFÎRȘIT SURSA în me- 
moria RAM de la ADR. INCEPUT DESTINAȚIE, complementat sau nu. 


Comanda C (Comparare) realizează compararea unei zone din EPROM 
cu o zonă din memoria RAM. Adresele limită ale blocurilor se dau după lansarea 
comenzii. 

Fiecărei erori depistate îi corespunde un mesaj care cuprinde tipul erorii 
(corectabilă sau necorectabilă, adică „1“ în loc de „0“ și invers), adresa, octetul 
din RAM și cel din EPROM. Se continuă compararea cu (CR). După terminarea 
comparării se afişează numărul total de erori apărute şi numărul de erori ne- 
corectabile. 

— format: A ADR (CR) 


Comanda D (Display) permite afişarea a 8 octeți din memoria EPROM 
începînd de la adresa menţionată în comandă, adresă care se afișează la înce- 
putul rîndului. 

Tastarea (CR) are ca efect afişarea următorilor 8 octeți. 


Comanda D (Programare) realizează cea mai importantă acțiune, aceea 
de înscriere a unei zone din memoria RAM în memoria EPROM. Adresele 
limită a blocurilor au în cazul acestei comenzi următoarea semnificaţie : adre- 
sele referitoare la sursă delimitează zona din EPROM care va fi înscrisă res- 
pectîndu-se convenția care defineşte memoria EPROM ca sursă iar cea RAM 
ca destinaţie. Înainte de programarea propriu-zisă se realizează compararea 
zonei sursă cu zona destinaţie. Dacă sînt depistate erori necorectabile ele sînt 
afişate şi se așteaptă decizia operatorului. Acesta poate să le ignore și să conti- 
nue compararea cu (CR). Acest test care anticipă programarea, dă posibilitatea 
înscrierii unei memorii EPROM care deşi nu este ştearsă complet, nu are diie- 
rențe necorectabile față de informaţia care urmează să fie înscrisă. 

Înscrierea fiecărui octet este anticipată de verificarea tensiunii de 25 
de volți care poate fi mai mică de 24 de volţi datorită sursei, comutatorului 
9—295 V sau datorită intrării Vpp defecte a cipului de EPROM. Succesiunea 
comenzilor şi întirzierile necesare peniru înscrierea corectă a unui octet sint 
generate prin software. 

Se verilică octetul înscris, comparindu-se cu octetul corespunzător din 
PAM şi dacă apare eroarea corectabilă se repetă înscrierea aceleiași locații. 
Dacă eroarea corectabilă se menţine, ea va fi contorizată şi se continuă progra- 
marea următoarelor lccaţii. Dacă apare o eroare necorectabilă ea este afişată 
și se aşteaptă decizia operatorului. După terminarea înscrierii întregului bloc 
de date se afişează numărul total de erori şi numărul de erori necorectabile 
apărute. 

Comanda $ permite înscrierea unui singur octet din EPROM. Comanda 
cere adresa și octetul de înscriere după care îl compară cu octetul existent 
în EPROM. Dacă diferența este necorectabilă ca este afișată şi se cere decizia 
operatorului. Revenirea în monitorul microcalculatorului se face cu comanda 
(CR). 
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8.9. Cuplarea cu un terminal DAF 2010 


Prin intermediul interfeţei seriale 8251 sc realizează transferul bidireeţio- 
nal asincron de date între microcalculator și un sistem DAF 2019, cu o rată 
de transfer de 2400 Bauds. 

Informația vehiculată poate fi transferată octet cu octet, sau sub formă, 
2de blocuri de date, înformat HEX-INTELLEC, care presupune următoarea 
structură a înregistrării : 


CR LF:NO ADR T Date Control 


unde : NO este numărul de octeți de date ai înregistrării, 
ADR — adresa de început a înregistrării. 
T — tipul înregistrării. 


Date — reprezintă maxim 16 octeți 
Control este suma logică a octeţilor din înregistrare. 


Sfirşitul de fişier este constituit de o înregistrare cu număr de octeți 
zero iar adresa corespunzătoare va îi adresa de salt în fişierul încărcat. 
Programul de transmisie a unui fişier, la lansare așteaptă adresa da 
început şi sfirşit a blocului de date iar la stirșitui transmisiei formează aulom:t 
înregistrarea de sfîrşit fişier. 
Programul de recapţie a unui fişier, aşteaptă după lansare, adresa de depia- 
sare a blocului de date faţă de adresa de înca=put a fișierului (intrinsecă). 
Secvența de prozramare a interieţei serie 8251 este prezentată în conti- 
nuare : 
MVI A, 0EAH MVI A, 15H 
OUT QIH OUT 01H 
Semnificația este următoarea : 2 biţi da stop, control da paritate dezactivat 
caracter pe 7 biţi, viteza de transmisie = rata de transmisie X10, activar» 
transmisie și recepție, anularza erorilor din registrul de stare. 
Subrutina d> transmisie a unui caracter aflat în memorie la adr-sa HL 
este prezentată în continuare : 


TCAR:  MOVA,NM TC! : IN Ş1H 
OUT 00H ANI 01lH 
JZ TC1 
RET 


Recepţia unui octet de la interiața serială este realizată de următoarea 
subrutină : 


RCAR: IN Q1iH IN 0OH 
ANI 02hH ANI 7FH 
JZ RCAR RET 


Programul de transmisie fișier preia din memorie blocuri de 16 octeți, 
ormatează informiția în HEĂX-INTELLEC şi calculează suma d control 
ealizind astfel o înrezistrare. Acest ciclu este repstat pini la terminirza bio- 
ului d= date, completinii-s> fişierul cu înregistrarea nulă. 
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Pregramul de recepţie fişier transieră în memorie înregistrări succesive, 
prelucrind secvențial fiecare octet și verificînd la sfîrșit suma de control. 

În cazul apariţiei unei erori programul afişează mesajul: ER : adresă, 
unde adresa constituie începutul înregistrării eronate. 

În momentul recepţiei unei înregistrări nule se face ieşirea în monitorul 
microcalculatorului. 


În continuare se dă configuraţia semnalelor la conectorul de interfață 
cu un DAF 2010: 


1. GND 4, 6. STRAP pt. DAF 9-19 neutilizat 
2. TxD 5. STRAP pt. DAF 7. GND 
3. RXD 8. — 

20. — 


8.10. Interfața cu un minirobot 


Minirobotul de laborator M2,5 elaborat la „Electrotimiş“ 'limișoara 
este un robot experimental cu aplicabilitate în industria elcctronică pentru 
manipularea de piese şi componente de mici dimensiuni şi greutate redusă 
(2,5 Nm ; greutate piese 300 g, deschiderea dispozitivului de prehensiune: 
7 cm ;). Minirobotul dispune de 5 grade de libertate fiind prevăzut cu 5 motoare 
pas cu pas (20 W) acţionate în “buclă deschisă. 

Minirobotul este realizat constructiv cu elemente mecanice din material 
plastic, transmisia este asigurată prin fire, posedă un panou de învăţare şi o 
tastatură cu electronică de urmărire. 

Mişcările pe care le poate executa acesta sint: 

— pivolarea (rotația în jurul axului principal) 

— mişcările brațului şi antebraţului 

— mişcările de flexie şi supinaţie a miinii mecanice. 

Minirobotul este interiațat la microcalculator printr-o interiaţa periferică 
programabilă, avind cele 3 porturi programate ca ieşiri. 


Prin aceasta ipteriață microcalculatorul asigură 8 comenzi de sens de 
mișcare şi 8 comenzi de tact repartizate fiecărui motor pas cu pas. (1 comandă 
de sens mișcare şi 1 comandă de taci la fiecare motor). 


Comenzile microcalculatorului sînt prelucrate într-o interfață de acţio- 
nare pentru motoarele pas cu pas. 


Viteza de execuyuie a mişcariior este controlată software, interiaţa de acțio- 
nare intervenind la depășirea valorilor prescrise pentru semnalele de tact. 

Controlul mişcării accelerate şi decelerate este asigurat tot din interfaţa 
de acţ 'onare. 


Programul de aplicaţie este scris într-un limbaj de nivel înalt, ARM 
BASIC, cu subrutine în limbaj maşină Z80. Între posibilităţile software remar- 
căm posibilităţile de claborare a unor modele matematice de transiermări 
de coordonate, un formalism matricial, posibilităţi de comandă în coordonate 
carteziene etc. Comenzile speciilice ARMBASIC au fost utilizate şi la simularea 
mișcărilor unui minirobot în cadrul a două programe de aplicaţie : un program 
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de învăţare pas cu pas a execuţiei unei mișcări şi un program de execuţie a unei 
traiectorii impuse. Programul de învăţare permite simularea acționării pas cu 
pas a motoarelor ; aducînd minirobotul în poziţii succesive, la comenzi de 
operator. 

Cel de-al doilea program realizează simularea mișcării miîinii minirobo- 
tului pe o traiectorie a cărei coordonate succesive sînt calculate secvențial 
de către microcalculator. Simularea minirobotului pe microcalculatorul aMIG 
pb reflectată prin afişarea stilizată pe display a poziţiilor succesive ale mini- 
robotului. 


8.11. Echipament de testare pentru microsisteme 
orientate pe magistrală 


Structura hardware a microcalculatorului „aMIC“ constituie procesorul 
„master“ al unui sistem biprocesor de test în curs de elaborare la ITC. 

Sistemul de test asigură posibilități de fabricaţie, service şi instalare 
de aplicaţii a microsistemelor cu circuite LSI organizate pe principiul magistralei. 

Echipamentul realizează o testare funcţional dinamică pe principiul 
emulării. 

Stimularea plachetelor sau microsistemelor sub test este asigurată de emu- 
lator iar evaluarea răspunsurilor se face prin sondă mobilă cu analiză de semnături. 

Resursele sistemului ILSIMINITEST sînt: memorie utilizator în procesorul 
master 48 Ko, memorie de emulare 8 Ko, sistem de operare și interpreter de 
test rezidente în EPROM, procesor master (16 Ko), monitor de depanare/ 
testare (rezident sau încărcat în memoria externă) programe de test şi module 
de test funcţional încărcate din memorie externă, program de condus sonda 
mobilă, monitor de emulare (2 Ko). 

Memoria externă este realizată cu minifloppy sau casetă audio. Sistemul 
de test are ca display un receptor TV obişnuit, dispune de miniimprimantă 
MIM46, are disponibilități de transmisie/recepţie serială de informaţii, putiad 
constitui un post de lucru al unei echipament de test complex, multipost, LSI 
TESI. 

Sistemul de testare are posibilităţi de punere la punct şi de editare a pro- 
gramelor de test, avînd interfaţat un programator de memorii EPROM. 

Emulatorul dispune de următoarele facilități : 

Stimularea în timp real a plachetelor sau microsistemelor sub test cu 
trei categorii de stimuli : primari, module de test funcționale și stimuli defa- 
vorabili, memorie de emulare relocabilă în spațiul de adresă al procesorului 
emulator, ceas de gardă, generare și tratare de întreruperi, memorie trasoare, 
emulare pe microsisteme cu microprocesor Z80 sau 8080. 

POD-ul emulatorului este constituit din microprocesorul 8080 sau Z80, 
bufferele de interfaţă şi controlerul acestora. Intervenţia pe placa sau micro- 
sistemul sub test se face la nivelul DIP-ului pe soclul microprocesorului 
emulat. Un translator de bus asigură posibilitatea testării microsistemelor 
organizate pe diferite standarde de magistrală. El este compus dintr-un modul 
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de unitate centrală specific, un modul de memorie specific şi o placă adaptoare 
de bus. Sonda mobilă asigură facilități de ridicare a unei semnături, discrimi- 
nează nivele TTL, MOS, analogice, lucrează sub comanda procesorului master 
şi emulatorului. 
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Fig. 8.27. Schema bloc a echipamentului de test LSIMINITEST. 


Sonda este ghidată prin program pentru localizarea defectului pe placa 
sau microsistemul sub test. 

Schema bloc a echipamentului de test ILSIMINITEST se prezintă în 
figura 8.27. 


8.12. aMIC-ul în unităţi de deservire pentru mașini-unelte 


În cadrul unei lucrări în curs de elaborare la ITC în colaborare cu o între- 
prindere constructoare de mașini-unelte, microcalculatorul aMIC se constituie 
ca o unitate de deservire a mașinilor-unelte, preluînd următoarele funcțiuni : 


— editare de bandă perforată ; 
— programare EPROM ; 
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— miniconsolă pentru automate programabile ; 

— imprimare programe. 

Editor de bandă perforată 

Resursele hardware ale microcalculatorului sînt completate cu inter- 
fațarea unui lector (respectiv periorator) de bandă perforată. Editarea de bandă 
perforată presupune existenţa unui program de citire/scriere a benzilor, cum 
şi un program de prelucrare a textelor in limbajul specific mașinilor-unelte. 

Întrucît acest limbaj nu este încă standardizat este necesară o mare 
flexibilitate a programului, astiel încît să permită apelarea, modificarea, în- 
scrierea (respectiv ștergerea) unor instrucţiuni sau linii de program, cu relooa- 
rea corespunzătoare a textului. 

Programul permite şi copierea benzilor periorato, prin controlul numărulu: 
de linie sau a unei anumite instrucțiuni. 

Programator memorie EPROM 

Dispozitivul reprezintă o variantă cu posibilităţi lărgite de programare, pu- 
tind programa circuite 2708 sau 2716. Informaţia se încarcă într-o zonă RAM 
tampon în mai multe moduri: 

— prin citire de pe bandă perforată 

— prin citirea unei memorii EPROM 

—- prin introducere manuală 

— de la miniconsola pentru automat programabil. 

Microconsola pentru automate programabile (AP10I, AP117). Sistemul 
poate îi cuplat la automatul programabil, asigurindu-i o zonă de memorie 
HAM în care se încarcă programul de control al procesului. 

Prin soltware se poate prelucra uşor informaţia înscrisă în memoria 
RAM permițind căutarea, ștergerea, modificarea, înscrierea unei instrucțiuni 
specifice automatului programabil. După punerea la punct a prograniului, 
acesta este înscris în memoria EPROM, constituindu-se ca program rezident 
pentru automatul prograimabi!. 

Sistemul permite, de asemenea, printr-un program adecvat, simularea 
execuției programului, fără cuplare la proces, variabilele de inirare putina 
fi controlate ş: motilicate :a intervenţia operatorului, iar variabilele interme- 
diare şi cele de ieşire putird îi urmărite pe display. 

Se poate testa, asticl, urmărirea şi controlul procesului (în condiţii defa- 
vorabile) și se poate optimiza programul de conducere a procesului. 

În cazul simulării variabilelor de intrare în condițiile unui proces în buclă 
închisă, se verifică optimalilatea programului de control al procesului iriiate 
de realizarea aplicaţiei, sistemul preluind funcţii de sistem expiii. 

Interfaţarea miniimprimantei MIM40 

În cadrul sistemului de deservire a mașinilor-unelte, funcția de imprimare 
este utilă pentru a asigura un suport de ieșire alprogramelor în procesul prelucrării 
şi modificării acestora. 

Soluția de interfațare a miniimprimantei la sistem a fost prezentată 
În paragraful 8.7. 
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8.13. Sistem de înregistrare/redare a parametrilor 
semicontinui de proces 


Acest sistem este destinat, într-o primă variantă, achiziţiei parametrilor 
de sudare cu arc electric (tensiunea arcului U,, curentul de sudare I], sub forma 
unei mărimi nominalizate în domeniul 0—10 V şi viteza trenului de sudare 
V,, sub forma unui tren de impulsuri de maximum 5 kHz) cu rezoluţia de 10: 
biţi și timpul de eşantionare de 200 ms. Parametrii achiziţionaţi pot fi memorați 
pe un suport extern (casetă magnetică audio sau (opţional) bandă perforată): 
şi tipăriţi ofi-line pe o miniimprimantă paralelă. De asemenea, conţinutul unei: 
înregistrări din proces poate fi redat sub forma unor mărimi analogice de comandă: 
a procesului. Numărul de canale estes maximum 16. 

Configuraţia completă are următoarea? componenţă: 

— modul unitate centrală (structurat pe varianta microcalculator personai 
aM IC) prevăzut cu 2 interieţe paralele (una funcţională pentru lector/periforator 
de bandă şi una de intrare pentru tastatură), interfață serie RS232C (destinată 
comunicaţiei cu DAF2010 sau cu alt sistem de calcul), memorie RAM dinamică 
(48 Ko) și EPROM (16 Ko), programator on line pentru circuite EPROM 
tip 2716, 2732 ; 

— modul interfaţă universală, care realizează interfeţe cu modulul de 
aiișare (6 digiţi), cu imprimanta tip MIMA40 (40 caractere), prin generator de 
caractere pe coloane rezident într-un ROM, cu unitatea de casetă (6251), cum 
şi un ceas provramabil de timp rcal pentru prescrierea frecvenţei de eșantionare 
pină la 100Hz; 

— sertar de interfeţe specifice cu procesul, care preiau semnalul de la 
ii aductoarele ce tensiune, curent, temperatură şi-l încadrează în urma modulării, 
optoizolării şi demoaulării în domeniul 0—10 V cu ercare mai mică de 1%; 

— periferice înglebute : modul anşare 6 digiţi, imprimantă MIM40, (in- 
clusiv modul ce ecţionare) unitate de casetă audio, tastatură caracter, 10 ciire 
și luncţională ; 

— conectori de interfaţă cu lector LB50/perforator PB50, cu unitate 
de casetă UCMIQI, pentru parametrii proces. 

Sistemul lucrează în regim de întrerupe, mod IMI, mascabile prin soft. 
Ele s:: înregistrează într-un registru de 8 biți, care este citit şi decoaiticat „PR 
proc: m în urma generării unui semnal unic de întrerupere. :; :: :: 


x 
2 


) În regim de prceremare, operatorul poate prescrie prin dialog; 
— numărul canalului ; Ri: ie 
— tipul canalului; 


— tipul de eșantionare (100 Hz); :" CR Ai 
— funcţia înregistrată pei 
În figura 8.28 se prezintă schema bloc a sistemului de lire gieirarei/pedate 
a parame! rilor. de proces. 
Software-ul aplicației asigură urmărirea procesului în timp real, fiind 
realizat în limbaj maşină 8080 (sau Z80). 
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fig. 8.28. Schema bloc a sistemului de înregis- 
trare/redare a parametrilor de proces. 


8.14. Microcalculator (de laborator) pentru prelucrarea 
datelor provenite din analiza cromatografică 


Pentru a evita costul ridicat al unei implementări specifice şi pentru 
a putea destina sistemul și altor proceduri de analiză fizico-chimică, soluția 
aleasă la ITC Timişoara recurge la o variantă cu un anumit grad de modulari- 
tate, funcţia principală de sistem fiind preluată de microcalculatorul aMIG, 
cu resurse proprii de memorie G4Ko (48Ko RAM şi 16Ko EPROM). 
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Acest modul interfaţează tastatura de caractere și funcţională, un DAF sau 
monitor "TV ca echipament extern de vizualizare şi asigură o interfaţă de date 
paralelă. 

Restul periferiei este tratat pe modulul de interfaţă care gestionează impri- 
manta paralelă de tip MIM40, înglobată în echipament, subsistemul de achi- 
ziție a mărimii de analiză, un ceas real de 20 ms şi ceasul de eșantionare. 

Pe același modul sînt rezidente şi registrul de întreruperi şi măștile 
«le întreruperi. 

Conversaţia numeric-analogică de tip interactiv se realizează pe 15 biţi, 
plus un bit de semn, în domeniul —10)mV — +1 V, avînd perioada de eșan- 
tionare sincronizată cu frecvenţa rețelei, pentru rejecţia zgomotelor de înaltă 
frecvenţă. 

Semnalul este preluat diferențial pentru a reduce zgomotele induse prin 
masă. 

Semnalul de analiză provenit de la cromatosraf se prezintă sub forma 
unei succesiuni de viriuri (peak-uri). 

Fiecare „peak“ apare la un moment de timp care trebuie corect estimat, 
întrucît identifică tipul unui anumit component din amestecul de analiză. 

Integrala „peak“-ului dă o informație cantitativă asupra componentului 
detectat, astfel încit, în final, se poate face o estimare exactă a compoziţiei 
procentuale a probei analizate. 

Software-ul sistemului este scris în limbaj de asamblare 8080 (16 Ko 
program și 12 Ko zonă de date, permițind integrarea a 350 peak-uri). 

Pachetul de programe este organizat modular şi cuprinde un monitor 
cu facilităţi de autodepanare, task-uri de dialog, de integrare, de corecție, de 
calcul al raportului (precizia de calcul: 24 biţi). 


Capitolul 9. Limbajul BASIC 


pentru microcalculatorul personal aMIC 


Manual practic 


9.1. Introducere 


BASIC (Beginners All-purpose Symbolic Instruction Code) reprezintă 
un limbaj conversaţional de nivel înalt. Pentru execuţia programelor de apli- 
caţie scrise în BASIC se folosesc cel puţin trei metode distincte : interpretarea, 
compilarea şi combinarea lor. Pachetul soliware, care folosește metoda combi- 
nată, poartă numele de compilator/interpretor sau pscudo-compilator. 

Fiecare din metodele de execuţie a programelor de aplicaţii are avanta- 
jele şi dezavantajele ei. În general, alegerea metodei este determinată de apli- 
caţie, de utilizarea particulară a calculatorului. 

În timpul execuţiei, un interpretor analizează fiecare instrucțiune, veri- 
fică existenţa erorilor, apoi efectuează funcția BASIC solicitată. Pentru a exr- 
cuta funcţia respectivă, interpretorul traduce instrucțiunea dată în codul 
ASCII într-un număr de instrucţiuni mașină executabile, pe care le execută 
în continuare. Acest proces se repetă la fiecare instrucțiune BASIC, chiar 
dacă instrucțiunea respectivă apare de mai multe ori în cadrul unui ciclu. 

Modul interpretativ de execuție presupune existența în memoria calcula- 
torului a întregului program BASIC-sursă, sub forma unei liste de linii marcate 
cu etichete numerice. Fiecare instrucțiune de ramilicaţie impune ca intcrpreto- 
rul să caute într-o listă de numere de linii, pentru a găsi instrucţiunea dorită 
În aceeaşi manieră interpretorul va căuta o anumită variabilă în cadrul unei 
liste date. 

Metoda bazată pe compilare presupune traducerea programului sursă, 
scris în BASIC, într-un fișier obiect relocabil. În continuare, un program de 


sistem, denumit Editor de legături, va înlănțui toate fişierele obiect relocabile 
produse, cit şi fişiere obiect extrase dintr-o bibliotecă, pentru a produce fișierul 
executabil în cod mașină. Programul obiect compilat, va fi executat de 259+30 
de ori mai repede decit se executa în maniera interpretativă același program 
BASIC sursă. 

Compilarea şi editarea de legături trebuie repetată la fiecare modilicare 
executată în programul sursă. În cazul interpretorului se va modifica cu ajutoru! 
unor facilităţi de editare încorporate, linia respectivă din programul sursă, 
după care se va trece direct la execuţie. 
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Astfel, un programator poate utiliza un inte. pretor pentru a pune la punct 
un program sursă BASIC, după care poate utiliza un compilator compatibil, 
pentru a obține un program obiect, care poate fi executat într-un timp foarte 
scurt, corespunzător aplicaţiei date. 

În comparaţie cu un compilator, interpretorul este mult mai ieftin. 


Metoda bazată pe pseudo-compilare asigură un compromis între viteză 
şi cost. Astfel, costul unui pseudo-compilator este apropiat de cel al unui inter- 
pretor, În timp ce viteza sa este de circa cinci ori mai mare decît a acestuia 
din urmă. Viteza relativă a pseudo-compilatorului depinde de instrucţiunile 
programului, de tipul de date şi de gradul în care codul rezultat necesită trans- 
latarea în timpul execuţiei. 

Varianta de BASIC aleasă pentru aMIC are un caracter interpretativ, 
ceea ce o face extrem de atractivă pentru punerea la punct a programelor. 
Marea majoritate a aplicaţiilor pentru acest calculator nu intră în categoria 
aplicaţiilor de timp real. 

În cazul în care se impune o viteză de execuție mai mare, se poate fo- 
losi metoda apelării unor subrutine, scrise în limbaj de asamblare, pentru acele 
zone din prozram care trebuie executate cu viteză mare. 


Asemenea situații apar în cadrul aplicaţiilor de colectare a datelor sau de 
conducere a unor procese. Pentru a realiza accesul la subrutine scrise în limbaj 
de asamblare se folosește instrucțiunea CALL, care include un nume de varia- 
bilă (un indicator la o celulă de memorie în care se află punctul de intrare îa 
subrutina scrisă în limbaj de asamblare) şi dacă este necesar, o listă de para- 
metri care trebuic transferați subrutinei. 


Pentru punsrea la punct a programblor în limbaj de asamblare se poate 
folosi prozramul de sistem MATE (Monitor-Asamblor-Text Editor), programul 
asambiat fiind stocat. pe caseta magnztică. În continuare el va fi încărcat în 
memoria operativă a calculatorului o dată cu programul BASIC-sursă. Într-unul 
din paragrafele acestui capitol se dau exemple pentru ilustrarea acestei tehnici. 


Calculatorul aMIC are disponibile două versiuni de interpr+toare BASIG. 
Prima versiune reprezintă un subset al celei de-a doua, în sensul că nu posedă 
instrucțiuni matriceale, instrucțiuni de prelucrare grafică și instrucțiunea 
CALL. Prima versiuns necesită un spațiu de 8 Ko în memoria PROM, în timp 
ce versiunza a doua nocesită un spațiu de 14 Ko. Se menționează și posibilitatea 
încărcării interpretorului BASIC ds pe caseta magnetică, în scopul redurerii 
numărului de circuite integrate de memorie PROM al căror cost este relativ 
ridicat. 

Operarea sistemului. Elemente introductive privind programarea în 
limbajul BASIC 

ja vederea unei sesiuni da lucru, calculatorul se conectează la intrarea 
de antenă a unui televizor și la o tastatură a'fanumarică *. Televizorul va fi 
folosit ca echipament de ieșire, în timp ce tastatura va juca rolul unui echipa- 
ment «> intrare. 


* Amănuntele privind conectarea la un televizor comercial, cit și tastatura sint date în 
capitolul 3 al lucrării. 
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După alimentarea de la reţea a televizorului și selectarea canalului cores- 
punzător se va alimenta și calculatorul, prin intermediul sursei proprii, și se 
va acţiona tasta RESET. În acest moment pe ecranul televizorului va apărea 
un text, care indică faptul că sistemul se află sub controlul programului monitor. 
În continuare se pot introduce, de la tastatură, comenzi monitor (descrise în 
capitolul referitor la monitorul sistemului). Pentru a lansa BASIC-ul, trebuie 
acţionate tastele B şi RETURN. Pe ecran va apărea mesajul READY, indicînd 
posibilitatea introducerii unor comenzi și instrucţiuni BASIC. De exemplu, 
dacă se doreşte calculul valorii unei expresii aritmetice: 30—2:324+4:2-3, 
se va iniroduce de la tastatură următoarea instrucţiune: 


10 PRINT, 30 — 2 sta 12+4/2s3 


Se observă că instrucțiunea începe cu o etichetă numerică (10). La sfir- 
șitul introducerii instrucţiunii trebuie acționată tasta RETURN. În continuare 
linia (instrucțiunea) introdusă este depusă în memoria calculatorului, fără 
a se executa. Se constată că operaţiile de înmulțire, împărțire şi ridicare la pu- 
tere sint descrise prin simbolurile *,/şi 4 . 

În memoria calculatorului pot fi introduse de la tastatură succesiv mai 
multe instrucţiuni, avînd numere de linie diferite. Un grup de instrucțiuni 
depuse în memorie poartă numele de program. 


Pentru a executa o instrucţiune (un program) depusă în memoria calcula- 
torului, trebuie dată comanda RUN (urmată de RETURN). Astiel, introducînd 
instrucțiunea PRINT, şi apoi comanda RUN, calculatorul va afişa pe ecran 
rezultatul expresiei (18), prioritatea în execuţia operatorilor fiind cea obiş- 
nuită (întîi ridicări la putere, apoi înmulţiri şi împărțiri și în final adunări 
şi scăderi). După tipărirea rezultatelor, pe ecran se va aiișa un mesaj de eroare 
cu numărul 1, indicînd faptul că programul executat nu s-a terminat cu o in- 
strucțiune de oprire a execuţiei (STOP sau END). Pentru a evita această eroare, 
se va introduce după PRINT o nouă instrucţiune: 20 END. 


Execut înd din nou programul (format din două instrucţiuni: 10 PRINT 
„.. Şi 20 END) şi folosind tot comanda RUN, nu se va mai obţine mesajul 
de eroare. 


În instrucţiunea PRINT pot apărea mai multe expresii (după necesități) 
separate prin virgulă. De exemplu instrucțiunea : 


10 PRINT 1+7, 3, 5, 5+24 3,£19/4 


Va tipări cinci valori, cîte două pe un rind separate cu spaţii. De notat 
că ecranul televizorului este impărţit în 32 de rînduri a 30 de caractere fiecare. 
În cazul folosirii virgulei în instrucțiunea PRINT valorile sînt afişate începînd 
din poziţia 1 și apoi din poziţia 15 a unui rînd, realizindu-se o tabulare automată. 
Pentru a nu se lăsa spaţiu (tabula) între valorile tipărite, se folosește separa- 
torul ; între expresii. 

Astfel, 10 PRINT 8; 15/2—1; 247; 19 va tipări cele patru valori 
8,6. 5, 128 și 19 pe același rînd (fără tabulare). 

Pentru a memora o valoare (un număr) care va fi folosită ulterior în pro- 
gram,se va utiliza o variabilă literală, căreia i se va atribui valoarea respectivă. 
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Limbajul BASIC dispune în acest sens de instrucţiunea de atribuire 
LET, cu ajutorul căreia se stochează în memoria calculatorului mărimi ce pot 
fi utilizate ulterior. Astfel, folosind variabila X : 


5 LET X=15 30 PRINT X 
10 PRINT X 40 STOP 
20 PRINT X/2, X42—X+1 


valoarea tipărită de instrucțiunile 10 și 30 este aceeași (15). Instrucţiunea 
20 utilizează valoarea variabilei X, fără a o modifica. 


9.2. Elementele limbajului BASIC 


În continuare vor fi prezentate cîteva noțiuni necesare pentru descrierea 
unei probleme în limbajul BASIC. Cuvintele folosite în limbajul BASIC formează 
vocabularul limbajului. Ele se scriu după reguli precise, date de sintaxa limba- 
jului. 

Caracterele întrebuințate în BASIC pentru alcătuirea cuvintelor sînt : 

—literele mari ale alfabetului: A, B,C, ...,Z 

— cifrele: 0, 1, ..., 9 

— caractere speciale: + —*/="“>< -, | ();$ 


9.2.1. Constante. Constantele sînt de două tipuri: constante numerice 
și constante şir sau texte. În continuare, în lipsa menţionării explicite, prin 
constantă ne vom referi la constante numerice. Constantele şir reprezintă 
orice șir de caractere introdus între ghilimele. De exemplu: “STUDENȚII 
HARNICI“, “INTRODUCEŢI DATELE“, «127-5“, etc. 

Constantele numerice utilizate în BASIC sînt reale. Ele pot avea, de exem- 
plu, următoarele exprimări : 


25 123.45 +4 — 0.36 +./7321 


De asemenea, la fiecare număr de mai sus, se poate adăuga un exponent, 
utilizînd litera E. Exponentul este un număr întreg. El indică puterea lui 10, 
cu care se înmulțește numărul. 

Astiel, următoarele constante sint corecte: 


25E — 1=2.9 123.459E.12 —0.36E — 15 


Intern, constantele sînt reprezentate în formatul cu virgulă mobilă, 
pe patru octeți. Primii trei octeți conţin mantisa, subunitară şi normalizată, 
iar octetul patru conţine exponentul: 


| M |S| E | 
0 23 24 31 


M este mantisa normalizată 0.5<<M-<l 

S este un bit care reprezintă semnul mantisei (1 pentru negativ). 

E este exponentul în complement faţă de doi. E reprezintă puterea: 
lui doi, cu care se înmulţeşte mantisa. 
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Conform cu această reprezentare internă, cel mai mic număr manipulat 
va îi (în modul) : 2.71051E-29 iar cel mai mare : 9.22337E18. Din reprezentare 
se observă că sint păstrate aproximativ 7 cifre semnificative. 


9.2.2. Variabile. Variabilele utilizate în BASIC pot fi, ca şi constantele, 
de două tipuri: variabile numerice (pe care le vom numi, pe scurt, variabile) 
şi variabile şir. 

Variabilele șir reprezintă şiruri de caractere alfanumerice. Numele u nei 
variabile şir este format dintr-o :iteră urmată de caracterul $: 


Exemple: A$, B$ 


Se pot utiliza și tablouri de variabile șir, tablourile fiind formate din 
mai multe variabile șir, cu aceeași lungime şi acelaşi nume. 

Numărul și lungimea variabilelor şir ce formează un tablou, trebuie 
declarate într-o instrucțiune DIM, înainte de utilizarea tabloului. Variabilele 
șir ce formează un tablou, vor fi specificate prin utilizarea indicilor. De exemplu, 
dacă A $ este un tablou de zece variabile şir, a cîte 50 de elemente (caractere) 
fiecare, atunci vom referi variabilele şir prin: A$ (1). AŞ (0), ....A $ (10). 
iar tabloul A$ va fi declarat într-o instrucţiune: 


DIM A $ (10,50). 


n unele aplicaţii, este necesară utilizarea unor porţiuni (snbșiruri) din- 
tr-un şir, desemnat de o variabilă şir. Pentru specificarea subșirurilor unei 
variabile şir, se foloseşte notația : (n, TO n2) asociată numelui variabilei șir ; 
n este indicele primului caracter al subșirului, iar nz este indicele ultimului 
caracter al subşirului din variabila șir. De exemplu, fie B $=*123ABC“, sub- 
şirul B $ (2T05)=“23AB“. 

Indicii n şi n2 pot fi constante, variabile sau expresii, valoarea lor fiind 
cuprinsă între 1 şi dimensiunea (lungimea) șirului. În cazul absenței indicelui 
n. se consideră că subșirul începe cu primul caracter al şirului, de exemplu : 
B $ (104)=“1D3A“. 

În cazul absenței indicelui n, se consideră că subşirul se termină cu ulti- 
mul caracter al şirului, de exemplu : B $ (3T0)=“3ABC“. Pot lipsi ambii indici, 
caz În care subșşirul este identic cu șirul (variabila șir) dat. Exemplu : B$ (TO)= 
=B $ =—“123ABC“. 

Se pot utiliza subșiruri ale variabilelor şir ce formează un tablou de 
variabile șir. 

De exemplu, pentru tabloul A $ (10, 50) format din zece șiruri de cite 
50 de caractere, se poate specifica subşirul A $ (3, 12 TO 43), format din ele- 
mentele 12 la 43, ale variabilei şir A $ (3). 

De remarcat că, în cazul unui tablou de variabile şir, trebuie selectată 
variabila şir din tabloul la care ne referim și apoi specificat un subșir din această 
variabilă. 

Pentru subşiruri formate dintr-un singur caracter, se poate îolosi un singur 
indice, cel al caracterului selectat. 

Astiel: B $ (4)=B $ (4TO4)=“A“; B$ (0)=<C“, pentru variabila B $ 
atilizată mai sus, iar în cazul tabloului A $, elementul (caracterul) al treilea 
-din șirul șapte va fi specificat prin A $ (7, 3) sau A $(7, 3T03). 
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Variabilele numerice utilizate în BASIC sînt reale. Variabilele pot fi 
simple sau indexate. Variabilele simple sînt reprezentate fie printr-o literă, 
fie o literă și o cifră. 


Exemple: A, Vi, Q7, A9 


* ariabilele indexate reprezintă elementele unui tablou (vector sau matrice). 
Identificatorul (numele) tabloului trebuie să fie compus dintr-o singură literă. 
Iaitera identificator de tablou poate coincide cu numele unei variabile simple 
(fără a produce conilict). 

Tablourile, înainte de utilizare, trebuie declarate în instrucţiunea DIM 
(sau o instrucțiune MAT). Indicele poate fi o constantă, o variabilă sau o ex- 
presie și trebuie să aibă valoarea : 

* < indice SS dimensiunea declarată în DIM 
Observaţie : 

Dacă, în urma evaluării expresiei indice, nu se obține o valoare întreagă, 
se va reține partea întreagă a valorii obținute. 


Exemple: E (1,5); V (ABS (R)); A (1-3, J-K) 

9.2.3. Operatori. Operatori aritmetici + 

4 ridicare la putere, 

Riu înmulțire, împărţire, 

—, 4 scădere, adunare. 

Operatorii au fost scriși în ordinea priorității în evaluare (7 are prio- 
ritatea cea mai mare). Cind se dorește schimbarea priorităţii în evaluare, sau 
cînd există dubii, este bine să se utilizeze parantezele ; operațiile din interiorul 
parantezelor vor fi executate înaintea celor din exterior. 

Operalori relaționali 


Operatorii relaționali sînt utilizați în instrucțiunea IF pentru a determina 
relația dintre valorile a două expresii: 


operator semnificaţie 2 operator semnificaţie 
= egalitate >= sau => mai mare sau egal, 
> mai mare] <= sau =<: mai mic sau egal, 
< mai mic <> sau >< neegalitate. 


9.2.4. Funcţii. În alcătuirea expresiilor pot fi utilizate următoarele funcţii 
matematice : 

SIN(x) — sinus de x, unde x este un unghi exprimat în radiani; 

COS(x) — cosinus de x, unde x este exprimat în radiani; 

TAN(x)— tangentă de x, unde x este exprimat în radiani; 

ATN(x)— arctangentă de x. Rezultatul este exprimat în radiani: 


(—PI/2 < ATN (x) < PI/2); 


LOG(x)  — logaritm natural din x; 
EXP(x)  — calculează e*; 
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Observaţie : | 
Constantele n şi e sint definite intern, în interpretor, şi pot fi utilizate 
În expresii prin simbolurile PI și respectiv EE. 
SQOR(x) — calculează rădăcina pătrată din x. 
ABS(x) — calculează valoarea absolută a lui x. 
INT(x) — calculează cel mai mare întreg <x. 
RND(x) — calculează un număr aleator în intervalul (0, 1). Valoarea 
argumentului x nu are importanţă în calcul. 
SGN(x) — returnează : 
1, dacă x>0 
0, dacă x=0 
—1, dacă x<0. 


În toate funcţiile descrise, argumentul x poate fi în general o expresie 
oarecare. 

Argumentele funcţiilor LOG și SOR trebuie să fie numere pozitive, în 
caz contrar sistemul va răspunde printr-un mesaj de eroare. 


În situaţia cînd, în calculul unei funcţii (expresii), rezultatul depășește 
scala numerelor reprezentabile în calculator (2.71051E-20, 9.22337E18), se 
afișează la consolă un mesaj de eroare (UNDERFLOW sau OVERFLOW 
IN LINE NN), execuția programului continuînd. Ca rezultat al funcţiei (ex- 
presiei) se ia cea mai mică, respectiv cea mai mare valoare reprezentabilă 
(corespunzător depăşirii). De pildă, în cazul funcţiei EXP (x), valoarea argumen- 
tului trebuie să fie cuprinsă aproximativ între —45 < x < 44, pentru ca re- 
rultatul e* să poată fi reprezentat intern. 

Funcţia INT calculează cel mai mare întreg, mai mic,sau egal cu argu- 
mentul. 

Astfel : INT(7.25)=7 

INT(—7.25)= —8 
INT(—.1)=—1 

INT poate fi utilizată pentru a rotunji un număr la cel mai apropiat 
întreg. 

Astiel, INT(x+ 0.5) va calcula întregul cel mai apropiat de x. 

Pe lingă funcţiile descrise mai sînt disponibile : funcţii pentru lucrul cu 
șiruri de caractere, precum și funcţii speciale de intrare/ieșire. 

Astfel, pentru lucrul cu șiruri de caractere, se pot utiliza funcțiile : 


VAL.(șir) — calculează valoarea numerică a șirului, tratat ca o expresie 
aritmetică. De exemplu: VAL(“127.5-B'“)=—7.9, dacă variabila 
B are valoarea 120. 


LEN (Şir) — calculează lungimea șirului speciticat. De exemplu: 
LEN(“ABC123")=6, sau dacă A$=“B79“, atunci LEN(A$)=3 


STR$ (expresie) — calculează valoarea expresiei, iar rezultatul formează un 
șir de caractere, ca și cum ar fi tipărit cu instrucțiunea PRINT. 


De exemplu STR$ (127.5-B)=*7.5", dacă variabila B are valoarea 
120. 
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CHR$ (expresie) — calculează (determină) caracterul care are codul ASCII 
egal cu valoarea expresiei. De exemplu CHRS(65)=«+A“ 


INKEY $ — citește un caracter de la tastatură (în cazul în care a fost 
acționată o tastă) şi întoarce codul ASCII al caracterului. În 
cazul cînd nu s-a acționat nici o tastă rezultatul este şirul nul (« *). 


Funcţiile VAL şi LEN pot fi folosite în orice expresie (aritmetică). însă 
pe prima poziţie în cadrul expresiei. Funcţiile STR$, CHR$ şi INKEY$ 
pot fi folosite numai în expresii de tip şir. 

Pentru executarea unei operaţii de intrare/ieşire, pe un port specificat, 
se pot folosi funcţiile : 


GET(x) — citeşte un octet de la portul numărul x, 0 < x < 255. 
Valoarea funcţiei va fi un număr întreg, 0 s< GET(x) < 25. 
Funcţia GET poate îi folosită în orice expresie. 


PUT(x) — poate apărea numai în membrul stîng al unei instrucţiuni de atri- 
buire. Execuţia funcţiei constă în transmiterea la portul cu numărul 
X, a valorii expresiei din membrul drept, al instrucţiunii de atri- 
buire. 

Exemple : 


10 PUT(127)=A+ 17 


Expresia din membrul drept este evaluată, convertită în întreg, iar cei 
mai puțin semnificativi opt biţi sînt trimiși la portul 127. 

Instrucţiunea : 15 PUT (127)=GET (255), va citi un octet de la portul 
255 şi-l va transmite la portul 127. 


9.2.5. Expresii. Expresiile utilizate în instrucțiunile BASIC sînt de două 
tipuri : expresii aritmetice (le vom numi, pe scurt, expresii) și expresii şir (sau 
şiruri). 

Expresiile şir pot conţine ca operanzi: constante șir, variabile şir sau 
subşiruri precum și iuncţiile ce au ca valoare șiruri de caractere : STR$, CHR$, 
și INKEY$. Ca operator, în formarea expresiilor şir, poate îi utilizat operatorul 
de concatenare, notat +. De exemplu: “123“+“ABC“=—“123ABC“, sau CHhR$ 
(65)+STR$(12+7)-+“CASA“ =" AI2CASA“. 

Expresiile aritmetice pot îi compuse din constante, variabile simple sau 
indexate, funcții, legate între ele prin operatori aritmetici etc. 

Exemple : 19 


VAL (70.5+B”) 
(5—x4 4 3) « (Z (k-1, i)-A/LOG (Z+1)) 


Ordinea de execuţie a operaţiilor. 


— În expresiile fărăăparanteze succesiunea este următoarea : 
1. calculul valorilor funcţiilor, 

2. ridicarea la putere. 

3. înmulţiri şi împărțiri (cu prioritate egală), 

4. adunări și scăderi (cu prioritate egală). 
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— Dacă două sau mai mulle operaţii de aceeași prioritate apar într-o expresie, 
ele se efectuează în ordine, de la stînga la dreapta, cu excepția ridicării la putere, 
unde execuţia este de la dreapta spre stînga. 


Exemplu : 
342 î 3=3 1 8=6561 


— Dacă într-o expresie apar paranteze, se vor executa întîi operaţiile cuprinse 
înire paranlezele interioare. 


Observaţii : 
1. Singurele paranteze admise siîrt parantezele rotunde. 
2. Operaţiile aritmetice trebuie scrise explicit. 

Exemplu : 


D4B se va scrie: 5*A*B. 


9.2.6. Instrucţiuni şi comenzi. Elementele principale ale limbajului 
BASIC sînt instrucţiunile și comenzile limbajului. Sintactic, instrucţiunile se 
deosebesc de comenzi prin faptul că orice instrucțiune este etichetată, adică 
orice instrucțiune începe cu un număr întreg (pe care-l vom numi număr de 
linie), cuprins între 0 şi 32767. 

Numerele de linie au un dublu rol: 

— determină ordinea de execuție a instrucțiunilor (instrucţiunile pot 
fi introduse în orice ordine, însă vor fi executate în ordinea crescătoare a nume- 
relor de linie) ; 

— sint utilizate în instrucțiunile de transfer, pentru referirea instruc- 
țiunilor. 

Comenzile şi instrucțiunile vor îi prezentate detaliat în capitolele urmă- 
toare. 


9.2.7. Exerciţii 


1. Dacă dispuneţi de un tabel cu logaritmi, încercați să verificaţi următoarea regulă i; 
a ridica 10) la o putere este echivalent cu inversul logaritmului din acel, număr. Introduceţi: 


10 PRINT 10 0.3020 
20 END 
RUN 


și urmăriţi în tabela de logaritmi, inversul logaritmului din 0.3020. De ce cele două rezuitate nu 
sint exact egale ? 


Observaţie : În continuare, instrucțiunea END de la stirşitul programului și comanda RUN ce 
lansează în execuţie programul, nu vor mai fi specificate explicit, considerindu-se subinţeles. 

2. S-a văzut că numerele sînt reprezentate în formatul cu virgulă mobilă, format care 
permite reprezentarea unei game largi de valori numerice reale, precizia reprezentării (6—7 cifre 
semnificative) nedepinzind de valoare. Executaţi însă următoarea instrucţiune : 


10,PRINT 1E64+1—1E8, 1E8—1E8+1 


Observaţi că pentru calculator 1E8 şi 1£8+1 sînt valori egale. 
3. Pentru obţinerea logaritmilor zecimali (cei găsiţi în tabelele de logaritmi), împărțiți 
logaritmul natural prin LOG (10). Astfel, pentru a calcula log 2 se foloseşte instrucțiunea : 


10 PRINT LOG (2)/LOG (19) 
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obţinind rezultatul 0.301029. Încercaţi să faceţi înmulţiri și împărțiri cu logaritmi servindu-vă 
de calculator ca de o tabelă de logaritmi. Pentru test, puteţi folosi exerciţiul 1, care calculează 
inversul logaritmului. 


4. EXP şi LOG sînt funcţii inverse una alteia. Aplicindu-le succesiv unui număr, îl vor 
lăsa neschimbat. 

Exemplu : LOG (EXP (2))=EXP (LOG (2))=2. 

Acest lucru este valabil și pentru funcţiile TAN și ATN. Puteţi utiliza acest exerciţiu 
pentru a testa precizia de calcul a funcţiilor respective de către calculator. 


5. Se știe că x radiani reprezintă 180”. Pentru a transforma o mărime exprimată în grade, 
în radiani, o împărțim prin 180 și înmulţim cu x, astfel: 


19 PRINT TANE(45/180 * PI) 


calculează tan 450 (=—1). Pentru a transforma radianii în grade, trebuie să împărţim prin x și 
să înmulțim cu 189. 


6. Cum utilizaţi funcţiile RND și INT pentru a obţine un număr aleator între 1 şi 6, care 
ar putea reprezenta aruncarea unui zar ? (Răspuns: INT (RND (1)+6+1). 


7. Pentru a testa precizia cu care este memorat x de către calculator, executați instruc- 
țiunea : 10 PRINT PI, PI-3 PI-3.1 P1-3.14, PI-3.141. 


8. Funcţia INT rotunjește la întreg prin lipsă.] 


Pentru a rotunji la întregul cel mai apropiat se adună 0.5." 
Exemple ; 


INT (2.9+0.5)=3 INT (5.449.5)=5 
INT (—2.94+0.5)=—3 INT (—5.4+0.5)=—5 


Comparaţi cele de mai sus cu rezultatele obținute în cazul că nu adunaţi 0.5. 
9. De ce numele unei variabile trebuie să înceapă cu o literă ? 
10. Reamintim citeva reguli de calcul cu puter) 


Ato=1 
A 1(—B)=1/A4B] 
A 4 (1/B)=[rădăcinafde ordin B din A 
A 4 (B+-O)=A 4 BeA 4C 
și 
A4(B*O=(A1B)+C 


unde A şi B sint numere întregi pozitive. 
Testaţi aceste reguli utilizind calcuhatorul pentru calculul diferitelor expresii conținînd 7 ş 
De exemplu: 
10 PRINT 34(24+0), 342+310 


| 20 PRINT 44 (-—1), 1/4 


11. Valoarea lui e, baza logaritmilor naturali, este 2.71828. Ea este memorată intern cu 
numele EE. Verifieaţi dacă e 
EXP (A)=EE 4 X 


pentru diverse valori ale lui X. 
12. Executaţi următoarele instruoțiuni : 


10 LET A$="ATN(1).4'" 
20 PRINT A$; ="; VAL (AS) 


(Roezultacul tipărit! este sc) 
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Repetaţi execuţia schimbind instrucţiunea 10. 


De exemplu : 
5 LET X=9 
10 LET AŞ="X43+2=+X" 


Reexecutaţi pentru expresii din ce în ce mai complicate atribuite variabilei șir AŞ. 
13. Unele versiuni ale limbajului BASIC utilizează următoarele functii pentru lucrul 
cu şiruri : LEFTS,:RIGHT$, MIDS și TL$, cu următoarele semnilicaţii i 


LEFT$ (AŞ, N) — calculează subșirul lui A$ compus din primele N caractere, 

RIGHT$ (AŞ, N) — calculează subşirul lui A$ compus din ultimele caractere începind cu 
al N-lea. 

MID$ (AŞ, 1, N2)  — calculează subșirul lui A$ compus din N2 caractere începind cu 
al Ni-lea caracter din AŞ. 

TL$ (A$) — calculează subșirul lui A$ format din toate caracterele lui A$ cu excep- 


ţia primului. 
Încercaţi să descrieţi funcţiile de mai sus cu ajutorul decupării cu TO, 
14. Executaţi programul : 


10 A$=CHR$ (INT (AND (0)*19-+438)) 
20 PRINT A$ 
30 GOTO 10 
(instrucţiunea GOTO 10 indică repetarea execuţiei de la linia 10). 


Programul tipăreşte o citră (între 0-9), deoarece 48 este codul cifrei Q la care se adună 
un număr aleator între ( și 9, dind codul ASCII al unei cifre (între 48 şi 57). Puteţi da altă soluţie 
pentru generarea unui nuimnăr întreg între 0 și 9? 


9.3. Comenzile şi modul de utilizare 
al interpretorului BASIC 


9.3.1. Lansarea în execuţie a interpretorului BASIC. Interpretorul 
BASIC este depus în memoria cu conținut permanent (PROM), începînd de 
la adresa 80011 (hexazecimal). De aceea poate fi lansat în execuţie cu ajutorul 
comenzii G0800, a monitorului sistemului, ca orice program utilizator. Pentru 
simplitate, s-a prevăzut între comenzile monitorului, o comandă specială pen- 
tru a lansa în execuţie interpretorul BASIC, anume comanda B*. 

Cînd interpretorul BASIC intră în execuție, va tipări pe display mesajul 
READY, indicînd faptul că se aşteaptă instrucțiuni sau comenzi de la utili- 
zator. În continuare, utilizatorul va introduce un program de la tastatură sau 
+a citi un program de pe casetă magnetică. Programul astfel introdus poate 
îi executat, listat pe display sau modificat (cu ajutorul unor facilități de edi- 
tare) după dorința utilizatorului. După execuţie, programul poate fi salvat pe 
casetă şi şters din memorie, pentru a se introduce un nou program. 

La terminarea unei sesiuni de lucru cu interpretorul BASIC, se va ieși 
de sub controlul interpretorului acționînd comutatorul (RESET) de la consolă, 
lansîndu-se în execuție monitorul sistemului. 

Există două situații speciale de lansare în execuţie a interpretorului 
BASIC. 


+ Comanda B este disponibilă iiumai în “ersiunea VB. 
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În prima situaţie, se utilizează subrutine în limbaj maşină, apelate din- 
tr-un program BASIC. În acest caz, înainte de lansarea în execuţie, a interpre- 
torului, se va introduce în memorie codul pentru subrutinele apelate, cu aju- 
torul comenzilor monitorului. Apoi se lansează interpretorul BASIC de la 
adresa 815H (deci cu comanda G0815). 

În cea de-a doua situaţie lansarea interpretorului are loc de la adresa 
829H, fără iniţializări. Lansarea de la această adresă (cu G0829) se folosește 
cind în memoria utilizată de interpretor pentru păstrarea programelor, se află 
un program care nu trebuie șters (de exemplu cînd s-a ieşit din BASIC în 
Monitor și se dorește să se intre iarăși sub controlul interpretorului, fără șter- 
gerea programului BASIC introdus în sesiunea anterioară). 


9.3.2. Editarea programului. Există facilități de corectare a unei linii 
în cursul introducerii ci de la consolă (tastatură), sau de editare a programului 
deja introdus (ştergerea unei linii sau înlocuirea ei cu altă linie). 

Astiel : 

— Ştergerea ultimului caracter introdus se realizează acţionind DEL 

— Şlergerea liniei în curs de introducere se face acționind simultan 
CTRL şi Y 

— ştergerea unei instrucțiuni din program se face prin tipărirea numă- 
rului ei de linie și RETURN. 

O instrucțiunea se poate înlocui prin tipărirea noii instrucțiuni cu același 
număr de linie cu vechea instrucţiune. 


Observaţie : Orice linie introdusă de la consolă (instrucțiune, comandă sau 
linie de date) va fi luată în considerare de sistem la acționarea lui RETURN. 


9.3.3. Listarea şi salvarea pe casetă a unui program. Un program BASIG 
aflat în memorie poate îi listat la display sau salvat (stocat) pe casetă mag- 
netică. Aceste operaţii pot fi executate indiferent dacă programul a fost exe- 
cutat sau nu. Pentru listarea programului se foloseşte comanda : 


I-IST NI,N2 


unde: Nl şi N2 sint numere de linie. 

Execuţia comenzii constă în listarea programului existent în memorie 
in ordinea crescătoare a numerelor de linie. Parametrii NI şi N2 sint opţio- 
nali. În cazul în care se specifică un singur număr de linie se vor lista instruc- 
ţiunile ce au numărul de linie mai mare sau egal cu numărul specificat în 
comanda LIST. Cînd s= specifică ambii parametrii, se vor lista instrucțiunile 
care au numărul de linie cuprins între N1 şi N2 inclusiv. Execuția comenzii 
poate fi oprită de la consolă, acţionind CTRI.. 
old abia 


Pentru salvarea pe casetă a unui program se folosește comanda SAVE. 
Dacă programul foloseşte subrutine în limbaj maşină, la comanda SAVE se 
salvează automat şi subrutinele apelate. Dacă comanda SAVE este executată 
după ce programul a fost executat, atunci se salvează pe casetă și valorile 
variabilelor utilizate în execuţia programului. 

Deoarece identificarea programelor de pe easetă se face manual de către 
utilizator, este bine ca înainte de salvarea unui program să se înregistreze 
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pe casetă un text vorbit (titlu), referitor la programul ce urmează, necesar 
identificării. Apoi se conectează casetofonul pe înregistrare la calculator şi se 
lansează în execuţie comanda SAVE. 


9.3.4. Citirea unui program de pe casetă. Pentru citirea unui program 
de pe casetă se foloseşte comanda LOAD. Înainte de a executa comanda 
LOAD, trebuie să se depisteze (sonor) începutul programului (după titlul 
înregistrat la salvarea programului) și apoi să se conecteze casetofonul la cal- 
culator, pe redare. Programul este citit de pe casetă în memoria calculato- 
rului împreună cu eventualele subrutine în limbaj mașină și cu variabilele, 
exact în starea în care a fost salvat, vechiul program din memorie fiind şters. 


Pentru o citire cît mai fiabilă este bine ca volumul redării să fie reglat 
corespunzător. 


9.3.5 Execuţia unui program. Pentru a lansa în execuţie un program 
BASIC aflat în memorie se pot folcs. comenzile: 


RUN nr. linie 
sat 
GOTO nr. linie 


execuția programului începînd de la linia cu numărul specificat în comandă. 
Pentru comanda RUN, numărul de linie poate să lipsească, caz în care exe- 
cuția începe cu prima instrucțiune din program. Deosebirea dintre cele două 
comenzi constă în faptul, că RUN iniţializează (şterge) variabilele înainte de 
lansarea în execuţie, pe cind GOTO păstrează valorile variabilelor obţinute 
într-o execuţie anterioară. De exemplu, dacă se citeşte un program de pe 
casetă împreună cu valorile variabilelor (eventual tablouri), atunci lansarea 
sa În execuţie se va face cu comanda GOTO nl, nl fiind numărul de linie 
al instrucţiunii aflată după instrucțiunea DIM în program, pentru a se putea 
folosi valorile variabilelor tablou salvate pe casetă. Dacă nu se doreşte utili- 
zarea valorilor variabilelor, obţinute într-o execuţie anterioară, programul 
poate fi lansat în execuţie cu comanda RUN. 


Observaţie : Pentru a nu se salva valorile variabilelor pe casetă atunci 
cînd nu sînt necesare, trebuie să se știe faptul că tabela de variabile este 
ştearsă în următoarele cazuri : 

— la introducerea unei noi linii în program, 

— la ştergerea unei linii din program, 

— la execuţia comenzii SCRATCH (însă în acest caz este şters şi pro- 
gramul). 

Execuţia unui program este oprită la: 

— depistarea unei erori în program, 

— execuţia unei instrucţiuni STOP sau END 

— întreruperea de la consolă, acţienind caracterul CTRL, 

— întreruperea de la consolă, acţionind RESET, caz în care se intră sub 


controlul Monitorului. cai 
La terminarea execuţiei, sistemul tipăreşte READY. După! eventuale 
corectări iaserări de instrucțiuui, programul poate îi executat din nou. 
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9.3.6. Ştergerea unui program din memorie. Înainte de introducerea 
unui nou program de la tastatură, vechiul program din memorie trebuie sters, 
altfel liniile lui vor interfera cu liniile noului program. Pentru ștergerea progra- 
mului din memorie (inclusiv a eventualelor subrutine în limbaj mașină) se 
folosește comanda: SCRATH (sînt suficiente primele trei caractere: SCR). 


9.3.7. Exereiţii 


1. S-a văzut că variabilele utilizate de un program în timpul execuţiei sint șterse din 
memorie la introducerea sau ștergerea unei instrucţiuni a programului și la comanda SCR. În 
toate aceste cazuri, este alterat însă și programul o dată cu ștergerea variabilelor (desigur, există 
posibilitatea de a șterge o linie și a o reintroduce cu același conţinut). 


O posibilitate de a şterge variabilele fără a altera programul, este prin execuţia comenzii 
RUN nl, unde ni este numărul de linie al instrucţiunii END sau STOP din program. 


Acest lucru este valabil deoarece, la începutul execuţiei programului, prin comanda RUN 
se şterg variabilele utilizate de program (într-o execuţie anterioară), iar apoi se va executa instruc- 
țiunea END sau STOP. Ştergerea variabilelor este utilă, în cazul salvării pe casetă a progra- 
melor ce conţin variabile (eventual tablouri), ale căror valori nu sint necesare la reîncărcarea 
de pe casetă. Testaţi acest lucru, pentru programe care conţin tablouri suficient de mari, si veţi 
observa diferența de timp la salvare și încărcare pe casetă. 


2. Executaţi următorul program 


10 LET 3X=7 
20 PRINT X 
30 END 


folosind comanda RUN. Execuiaţi acum programul începînd de la linia 20 cu comenzile GO'1020 
şi RUN20. Observaţi că rezultatul este diferit (în primul caz este 7 în al doilea 0). Acest lucru 
se datorează faptului că, comanda RUN șterge variabilele rămase dintr-o execuţie anterioară 
(lucru care s-a mai spus), iar interpretorul BAS IC consideră variabilele nedefinite ca avind valoa- 
rea zero. 


3. Pentru a testa faptul că comanda SAVE salvează împreună cu programul și variabilele 
utilizate, se poate introduce un program, de exemplu cel de la exerciţiul 2, și după execuţie se 
va salva pe casctă. Pentru salvare se vor executa următoarele acţiuni : 

— poziţionarea benzii în zona în care se dorește să se înregistreze programul, 

— utilizind microfonul, se va da un nume programului ; acest lucru nu este absolut nece- 
sar, dar este util pentru regăsirea ulterioară a programului, 

— se conectează casetofonul (prin cablul corespunzător) cu calculatorul, 

— se introduce comanda SAVE (fără a acţiona tasta RETURN), 

— se comută casetofonul pe înregistrare, 

— se acţionează RETURN, 

— se urmărește apariţia pe ecranul televizorului a mesajului de sfirşit de operație 
(READY). La apariţia mesajului, opriţi casetofonul. Pe durata înregistrării se va auzi un zgomot 
specific, în difuzorul asociat calculatorului, iar imaginea pe televizor va fi formată din dungi 
variabile (în primele 10 secunde din înregistrare, se depune un preambul necesar sincronizării, 
iar apoi programul BASIC şi variabilele). 


În continuare, se șterge programul din memorie cu ajutorul comenzii SCR (se. poate testa, 
eă memoria nu conţine nici un program, introducind comanda LIST). 


H continuare, se încarcă programul de pe casetă în memorie executind următoarele 
acţiuni ? 

— se rebobinează banda pentru a o aduce la începutul fişierului (zonei) cu programul. 
Pentru depistarea începutului programului se va face uz de numele înregistrat înaintea progra- 
mului, 

— se cenectează casetofonul la calculator, pe redare, 

— se reglează volumul redării suficient de mare (3/4), iar tonalitatea la valoare înaltă 
(dacă casetofonul are reglaj de tonalitate), 

— se introduce comanda LOAD (fără a acţiona tasta RETURN), 
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— se pornește casetofonul, 
— se urmăreşte dacă beculeţul de la consolă s-a aprins și apoi se acţionează RETURN, 


— se urmărește apariția pe ecranul televizorului a mesajului de sfirșit de încărcare. 
Astfel, în cazul în care operaţia a decurs fără erori, vor fi afișate două numere în hexazecimal 
care reprezintă : adresa de început a zonei de memorie salvată pe casetă și respectiv — lungimea 
ei (numărul de octeți). Apoi este tipărit mesajul READY, de către interpretor. În cazul în care 
s-au depistat erori la încărcare, monitorul va tipări ? și va prelua controlul. În acest caz, încăr- 
carea programului de pe casetă trebuie reluată, însă este indicat a se intra în BASIC din monitor 
cu comanda G0829 (fără inițializări), pentru a se lista (cu LIST) programul încărcat şi a se constata 
amploarea erorii de încărcare. Uneori eroarea poate fi corectată editind o anumită linie, fără a 
mai încărca încă odată programul de pe casetă. 


După încărcarea programului, se execută comanda GOTO26, şi se observă că rezultatul 
este ?, deci împreună cu programul a fost salvată și variabila X. 


4. Introduceţi un program BASIC şi apoi opriţi alimentarea de la reţea a calculatorului. 
Realimentind calculatorul și lansînd interpretorul BASIC veţi constata că programul s-a pier- 
dut. Deci, în cazul programelor mari, este indicat salvarea lor pe casetă, chiar în faza de punere 
la punct, pentru a nu risca reintroducerea lor în întregime. 


9.4. Instrucţiunile limbajului BASIC 


9.4.1. Exemplu de program. Înainte de a începe prezentarea instrucţiunilor limbajului 
BASIC, se va da un exemplu de program scris în BASIC, pentru rezolvarea sistemului de două 
ecuații lineare cu două necunoscute. 


ax+by=c 
dx-+ey=f 


Sistemul are soluție unică dacă ae-bdz+, caz în carei 


ce—bi , af—cd 


ae_bd ? Y ae—bă 


Dacă ae—bd=6, atunci, fie nu există nici o soluţie (siste:n imposibil), fie există o infini- 
tate de soluţii (sistem nedeterminat) însă, nu există soluție unică. Programul este următorul i 


10 REM “PROGRAM CE REZOLVA UN SISTEM” 

15 REM “DE DOUA ECUATII LINEARE” 

20 PRINT “INTRODUCETI COEFICIENTII A, B, C, D” 
30 INPUT A,B,C,D 

40 LET G=A*E—B*D 

50 IF G=0 THEN 129 

60 PRINT “INTRODUCETI TERMENII LIBERI C, F' 
70 INPUT C,F 

80 LET X=(C*E—B*F)/G 

99 LET Y=(A*F—C*D)/G 

1900 PRINT X, Y 

110 STOP 

120 PRINT “SISTEMUL NU ARE SOLUTIE UNICA” 
130 END 


Privind acest program se observă în primul rînd că, în scrierea sa, sînt 
folosite numai litere mari. În al doilea rind,se constată că fiecare linie a pro- 
gramului începe cu un număr ; el este numărul de linie discutat în capitolul 
precedent. În al treilea rînd, se observă că fiecare instrucțiune începe, după 
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numărul de linie, cu un cuvînt care determină tipul instrucţiunii. Astfel, În 
exemplul dat sînt folosite şapte instrucţiuni (REM, PRINT, INPUT, LET, 
IF, STOP şi END). 

O altă observație, care nu este evidentă din program, constă în aceea 
că, in BASIC spaţiile nu au nici o semnificaţie, cu excepția celor din textele 
cuprinse între semnele apostrof (ca în liniile 10,20,60). 

În continuare vor fi prezentate, pe rînd, instrucţiunile limbajului BASIG 


9.4.2. Comentarea unui program. Primele două instrucţiuni, din exem- 
plul de mai sus, nu au nici un rol în rezolvarea sistemului de ecuații. Ele sint 
scrise pentru a introduce comentarii într-un program BASIC. 

Formatul instrucţiunii este : 

nr. linie REM comentariu 

Instrucţiunea REM poate apărea oriunde se dorește introducerea unui 
comentariu, în cadrul unui program. Deoarece sisternul elimină spaţiile din orice 
șir de caractere neinclus între semnele apostrof (”) este bine ca un comentariu să 
se includă între acesie semne. | 
Exemplu : 


130 REM "COMENIARIILE OCUPA „MEMORIE UTILA” 


9.4.3. Terminarea unui program. Pentru a opri execuția unui program, 
pot fi utilizate instrucţiunile END sau STOP. 
Formatul instrucţiunii STOP este: 


nr. linie STOP 
La întîlnirea instrucţiunii STOP în program, sistemul va scrie mesajul ; 
STOP AT ÎNN 


unde NN este număru de linie al instrucţiunii STOP care a produs oprirea 
execuţiei. Într-un program pot fi utilizate mai multe instrucțiuni STOP, în 
funcţie de necesităţi. În exemplul din paragraful 9.4.1. instrucţiunea STOP are 
numărul de linie 110. 

Formatul instrucţiunii END este: 


nr. linie END 


Spre deosebire de instrucțiunea STOP, într-un program trebuie să existe 
o singură instrucţiune END şi să fie ultima instrucţiune din orogram (să aibă 
numărul de linie cel mai mare). 


9.4.4. Instrucţiunea de atribuire (LET). Formatul instrucţiunii LET este 
următorul : 

nr. linie variabilă = expresie 
sau 

nr. linie LET variabilă = expresie 
unde : 

— variabila poate fi o variabilă numerică sau variabilă șir, simplă sau 
indexată, sau funcţia PUT; 

— expresia din membrul drept poate fi aritmetică sau expresie șir. 
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Execuţia instrucţiunii constă în evaluarea expresiei din membrul drept 
și atribuirea valorii obţinute, variabilei din membrul stîng. 


Exemple : 
5 B=B+i 20 C$= INKEY$ 
10 A$Ş=—"ABCD179” 30 LET A=4.17+GQ 


Observaţie : 


O variabilă utilizată într-o expresie, fără a fi fost definită în prealabil, pri- 
mește automal valoarea zero. Astfel, în instrucţiunea 30) de mai sus, dacă vari- 
abila C nu a fost definită, valoarea lui A după execuţia instrucţiunii 30 va îig4.17. 


50 X=X+Y 43.5 
60 LET W7=((W—X)/4.3)*SQR (Z()—A)/B 
90 As (7 10 165=CHE$ (65)4- „123% 

Dacă expresia șir atribuită unei variabile şir, este mai lungă decit dimen- 
siunea variabilei (stabilită prin DIM sau printr-o atribuire anterioară), atunci 
se atribuie variabilei şir doar prima parte din expresia şir (egală cu lungimea 
variabilei), restul expresiei şir ignorîndu-se. Dacă lungimea șirului din membrul 
drept este mai mică decît lungimea variabilei şir, restul de caractere =2 com- 
pletează cu spații. 

Exemple 


10 A$="'12345678” 
5p A$ (2T05)=,,ABCDEFG”'] 


În acest caz, A $ va deveni “1ABCD678”, deci, au fost păstrate doar 
primele patru caractere din şirul "ABCDEFG”. Dacă în locul instrucţiunii 28 
de mai sus, se folosea instrucţiunea: 


20 A$ (2T05)="AB” 
valoarea variabilei A $ ar fi devenit '"'1AB7678” 


30 BS=STR$ (A4B—17)4''MEDIA” 
403 (, INT (K 4 10))=COS (EXP (K+1) 


9.4.5. Utilizarea variabilelor indexate (DIM) 


Formatul instrucţiunii este : 
nr. linie DIM tableu 1 (dimens), tablou 2 (dimens, dimens) ,-s 
unde : 

— tablou 1, tablou 2, sint identificatori (nume) de tablou (vectori, 
matricei sau variabile şir) + 

— dimens reprezintă expresii ale căror valori definesc dimensiunile tablo- 
urilor ; este necesară îndeplinirea condiţiei: 


1 SS dimens 24 


Tablourile numerice pot avea una sau două dimensiuni (vectori sau 
ma trici) 
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Exemplu : 
110'DIM A (50), B(M, N) 


Instrucţiunea 110 declară două tablouri A și B, A fiind un vector cu 
50 de elemente, iar B o matrice cu MXN elemente (M, N cunoscute). 


Execuţia instrucţiunii constă în alocarea, memoriei pentru tablourile 
declarate şi iniţializarea tuturor elementelor ale fiecărui tablou numeric cu 
zero. 

Tablourile de variabile şir trebuie declarate în instrucțiunea DIM, indi- 
cîndu-se numărul de variabile şi lungimea variabilelor. 


Exemplu :* 
10 DIM A$ (15, 20), BS (50) tis 
Instrucţiunea 10 declară un tablou A $ format din 15 variabile şir a cite 
20 de caractere fiecare şi o variabilă şir B $ cu lungimea de 50 de caractere. 
De remarcat faptul că, variabilele șir (exemplu B $) nu irebuie declarate într-o 
instrucțiune DIM, ele putînd fi utilizate direct în instrucțiuni de atribuire sau de 
intrare/ieșire. “Tablourile șir trebuie declarate într-o instrucţiune DIM înninte 


de utilizare. Folosirea lor se face prin specificarea unei anumite vari-bile șir 
componente, şi nu a întregului tablou. De exemplu, instrucțiunea : 


20,A $ =—"1234” 
este incorectă pentru că, A $ a fost declarat tablou în instrucțiunea 16, 
Corect ar îi: 
[20 AS (2)mm''1234” 


instrucțiunea in urma căreia, variabila a doua din tabloul A $ primeşte valoarea 
1234”. Tot corectă este şi instrucţiunea : 


20 AŞ (2,10 TO 13)="'1234” 


În cazul tablourilor?(variabilelor) șir, execuţia instrucţiunii DIM constă 
în alocarea de memorie, cîte un octet pentru fiecare element (caracter), ini- 
țializat ţcu codul spaţiului (A0H). 

Tablourile numerice și cele șir pot fi declarate intercalat, în aceeaşi 
instrucțiune DIM. 

Exemplu : 


10 DIM A (10, 10), BS (100), C(19) 
9.4.6. Exerciţii 
1. Introduceţi următoarea secvenţă de instrucţiuni 


10 LET A$=—"X*+"*Yy"| 30 LET AS (4)=CHR$ (162) 
20] LETIAŞ (2)=CHR$ (162) 40 PRINT A$ 
(162 este codul ghilimelelor) 
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De remarcat că secvenţa de mai sus nu este echivalentă cu: 
10 LET A$="'X" dă 3 VI Li dn dd 


deoarece, în acest caz, membrul drept al instrucţiunii de atribuire este tratat ca o expresie de 
tip șir, evaluată la ''XY''. O altă mcdalitate corectă de a inircduce ghilimele într-un şir 
este introducerea sucesivă. Actfel instrucţiunea : 


10 LET A$="'X" 147 dd i dl 
este echivalentă cu secvența de mai sus. 


2. Fie secvenţa de instrucţiuni: 


10 LET A$=''12345678" 40 PRINT A$ 
20 PRINT AŞ 5p LET A$=''1234" 
30 LET A$=''ABC” 60 PRINT A$ 


După execuţie se va obţine eroarea 28 în linia 50. Acest lucru este consecinţa faptulub 
că în linia 36 are loc o redimensionare a șirului AŞ, la lungimea de 3 caractere (de la 8 cite avea 
iniţial). Pentru a evita această redimensionare, linia 30 se poate scrie 30 LET AŞ (T0)="'ABC', 
şirul A$ răminînd de lungime 8, prin completarea şirului “'ABC”' cu 5 spaţii. Deci, trebuie reținut 
faptul că în gestiunea şirurilor nu se folosesc doi indicatori de lungime : unul păstrind lungimea 
maximă, iar celălalt lungimea efectivă a șirului (sau lungimea maximă să fie pentru toate şirurile: 
o constantă, exemplu 256 caractere). 


8. Introduceţi programul î 


5 DIM B$(3,8) 40 PRINTyB$ (2) 

10 LET B$ (2)=''12345678'' 50 LET B$ (2)=''12345 
29 PRINT B$ (2; 60 PRINT B$ (2) 
30 LET B$(2)='"MPQ' 70 END 


Executind programul nu se va obţine eroare, ca în cazul exerciţiului precedent. Deci, 
în cazul tablourilor de șiruri, nu are loc redimensionarea unui șir component la o valoare mai 
mică, ci se păstrează dimensiunea (8) declarată în DIM, prin completarea automată cu spaţii. 
Pentru a nu se completa cu spaţii (păstrindu-se totuşi dimensiunea de 8 caractere) se poate 
utiliza specificarea cu TO. Astfel instrucțiunea 30 devine : 30 LET B$ (2,1 T03)= "MPQ-. 


În acest caz, șirul tipărit de instrucţiunea 4 va fi: ''MPQ45678”. 


4. În cazul utilizării unor tablouri mari se poate obţine la execuţie mesajul de eroare 
MEMORY FULL, indicînd faptul că nu mai există memorie suficientă pentru alocarea tablou- 
lui. Trebuie să se aibă în vedere faptul că, pentru fiecare element al unei variabile tablou numerice, 
se alocă cite 4 octeți. Astfel, instrucţiunea 10 DIM A (11,11), B (16,16) va aloca două tablouri 
numerice, primul ocupînd aproximativ 0,5 Ko şi al doilea 1 Ko. Ce acţiuni se pot indica la apari- 
ţia acestui mesaj de eroare? 


9.4.7. Instrucţiuni de intrarc/ieşire. Instrucţiunile de intrare/ieşire per- 
mit să se introducă date (valori ale variabilelor) pentru program și să tipărească 
rezultate sau mesaje către utilizator. În execuţia acestor instrucțiuni sînt 
folosite în mod obișnuit tastatura și display-ul, însă pot fi utilizate oricare 
din perifericele sistemului, dacă se au în vedere facilitățile mai deosebite de 
intrare/ieșire materializate prin funcţiile GET şi PUT sau subrutine în limbaj 
mașină, apelate din programul BASIC, cu instrucţiunea CALL. 


Instrucţiunea INPUT. 
Format:: 
nr. linie INPUT listă de variabile 
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Lista de variabile poate conţine variabile simple şi variabile indexate 
sau variabile şir, separate prin virgule. 

Instrucţiunea INPUT este folosită pentru atribuirea de valori variabilelor 
din listă, valorile fiind introduse de la tastatură (consolă) în timpul execuţiei 
programului. 

Atunci cind se execută instrucţiunea INPUT, sistemul va tipări la con- 
solă(:) indicind că aşteaptă date de la consolă. Se vor introduce constantele 
dorite separate prin virgule, linia introdusă va fi luată în considerare de sis- 
tem la acţionarea tastei RETURN. Dacă s-au introdus mai puţine date decit 
variabile în instrucțiunea INPUT, sistemul va tipări din nou (:) și introducerea 
datelor va continua pînă ce toate variabilele au primit valori. 

Dacă se introduc mai multe constante decit sînt necesare, constantele 
suplimentare se ignoră. În cazul în care se doreşte oprirea execuţiei progra- 
mului, în timp ce sistemul aşteaptă date de la consolă, se acţionează tasta 
CTRL și C simultan, iar sistemul va tipări READY. 

Exemplu : 


50 INPUT I1,A,B, V(2). 

La execuția instrucţiunii uy sistemul va tipări (:) la consolă şi va aştepta 
introducerea a patru constante. Dacă sc introduc doar trei numere, sistemul 
va tipări iarăşi (:) indicînd că aşteaptă date. Astfel, la consolă va apărea: 

: 4, 17.5, 9E10 

: 10.3 

Dacă este comisă o eroare în timpul introducerii de date, sistemul va 
tipări un mesaj de eroare, iar ultima linie de date va trebui reintrodusă. Astlel, 
dacă în exemplul de mai sus s-ar fi introdus: 


„4 4, 17M9, 9E10, 10.3 
sistemul ar fi răspuns: 
INPUT ERROR, TRY AGAIN 
: (aşteaptă noi date) 
Introducerea datelor se repet: coreci astfel: 
: 4417.9, 9E10,810.3 
În cazul folosirii variabiletor şir, trebuie remarcat că, din linia cu on- 


stante şir corespunzătoare, introdusă de la consolă, sint eliminate spaţiile 
geincluse înire ghilimele. 


Exemple : 
10 INPUT AŞ, B, C$ (2T05))] 
3 "SINT GATA”, 73, ABCD 


Variabila A $ a primit valoarea "SINT GATA”, variabila B valoarea 73 
iar variabila C$ valoarea ABCD, pentru elementele 2 la 5. Textul SINT GATA 
a fost introdus între ghilimele, pentru a se păstra spaţiul dintre cuvinte 


Instrucţiunile READ şi DATA. Instrucţiunea READ are același efect cu 
INPUT, cu deosebirea că datele nu sint introduse de la consolă, ci sint citite 
dintr-un bloc de date, definit cu instrucţiunea DATA. 
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Formatul instrucţiunilor : 
nr. linie READ listă de variabile 
nr. linie DATA listă de constante. 


Pentru a putea ține evidenţa constantelor citite in instrucţiunile DATA, 
interpretorul folosește un indicator la constanta ce urmează a fi citită din 
blocul de constante, care apar în instrucţiunile DATA, din program. În cazul 
in care nu se pot iniţializa toate variabilele din instrucțiunea READ, din 
cauza epuizării constantelor din instrucţiunile DATA, sistemul va da un mesaj 
de eroare. 


O instrucțiune DATA nu este asociată unei instrucţiuni READ, ci toate 
instrucțiunile DATA sînt tratate ca și cum ar forma un bloc de date. 
'nstrucțiunea DATA poate apărea oriunde, în cadrul programului. 


Exeaplu : 
150 READ X, Y,Z 
20) READ A 
250 FOR I=1 TO 10 
255 READ B(1) 
200 NES I 


490 DATA 4.2, 7.5, 25, —l, 01, .001, —1 
450 DATA 2., 1, 7, 9, 1E7, a 


Primele trei constante sînt citite pentru X, Y şi Z. Pi: 
Valoarea — 1 va fi atribuită lui A. Următoarele zece valori de la .1 la 3.5 
vor fi atribuite elementelor vectorului B. g ÎN Oa, 
Instrucţiunea RESTORE 
Format : 


nr. linie RESTORE 


Este folosită pentru a iniţializa indicatorul din blocul DATA, pe prima 
instrucțiune DATA din program. Astfel, se permite reutilizarea datelor. 


Exemolu : 
20 FOR K=0 TO 10 
30 READ B(K) 
40 NEXT K 
50 RESTORE 
60 READ X, Y, Z 
70 FDP 


200 READ 
500) DATA 1,2, 3, 4,5,6,7,8,9,10 
Elementele vectorului B vor primi valorile [1,2,..., 10; variabilele 
X, Y, Z vor primi valorile 1, 2, 3, iar instrucțiunea 20)READ va citi începînd 
cu 1. 
În instrucțiunea READ pot fi folosite și variabile şir. 


Exemplu : 
A READ A$, B, C$ 


AR DATA “ABC 123“, 17.5, AB123 
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Variabila A$ primește valoarea “ABC 123“. iar C$ valoarea AB 123. 
Instrucţiunea PRINT 
Formatul instrucţiunii este: 


nr. linie PRINT listă 
sau 
nr. linie PRINT 


lista poate conține: constante, variabile simple sau indexate, expresii sau 
șiruri. 

Instrucţiunea PRINT este folosită pentru tipărirea valorilor curente ale 
expresiilor care apar în listă. În cazul cînd lista lipsește se va trece la începutul 
liniei următoare pe display. 

Numerele reale sînt tipărite în următorul format : 

— dacă numărul este negativ se tipărește semnul — 

— dacă valoarea absolută a numărului N este cuprinsă între: 


0.1 N sz 9999999, 


atunci numărul este tipărit fie ca număr întreg (dacă valoarea sa este 
întreagă), fie ca număr zecimal, folosindu-se punctul ca separator al 
părții întregi de partea zecimală. 

— dacă valoarea numărului nu se încadrează în intervalul de mai sus, 
atunci numărul este tipărit în notație ştiinţifică (exponențială) astfel 3 


[—]X.XXXXX E [—] YY 


unde: | | — indică partea opțională a reprezentării, dacă numărul este 
negativ se tipăreşte — ; 


X — reprezintă o cifră a numărului; 
E, — indică reprezentarea exponențială ; 
Y — este cilră a exponentului. 


Valoarea numărului va fi: [—] X.XXXXX X 101—1YY 


În funcţie de separatorul folosit între elementele din listă, se va face 
spațierea între valorile tipărite. 


Ca separatori pot fi folosiți „,“ sau „; 

Linia pe care se tipăreşte este împărțită în zone. Lungimea unei zone 
este de 15 caractere. Pentru un display cu lungimea linici de 30 caractere vor 
exista două zone începind cu poziţiile 0 şi 15. 


Exemple : 
10 LET X=5 
50 PRINT X, (3X*2) +6, X*2 
60 PRINT X 4 4, X—25, X—100 
80 END 
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la display va apărea: 


pg... 15... 30 <— poziţii 
5 1.00000E. 06 
10 625 

—20 —95 


Cînd valoarea de tipărit depăşeşte lungimea unei zone, elementul următor 
este tipărit la începutul primei zone libere. 


10 LET X=25 
20 PRINT “SOR (X)=”, SQR (X) 


30 END 
Se va tipări: 
ERE ID... 30 <— poziţii 
SQR(X)= 5 


Folosirea ca separator a lui „;” conduce ia tipărirea fără salt la urmă- 
toarea zonă. 


Dacă lista din instrucţiunea PRINT nu se termină cu „,“ sau „; “atunci, 
la sfirșitul execuției instrucţiunii (după tipărirea tuturor elementelor din listă), 
se va trece la începutul liniei următoare. Terminarea listei din instrucțiunea 
PRINT, cu unul din separatorii „, “ sau „;“ este utilă în cazul tipăririi mat 
multor valori într-un ciclu, peniru a se face economie de spaţiu de afişare. 


Exemplu : Programul 
10 FOR I=1 TO 16 
20 PRINT I 


30 NEXT I 
40 END 


Va tipări fiecare valoare la început de linie 
1 
2 
3 
10 
Dacă se foloseşte separatorul „ ,“ 


190 FOR I=1 TO 19 
20 PRINT I, 

30 NEXT I 

40 END 


atunci se vor tipări cite două valori pe linie. Pentru a se putea tipări oriunde pe 
suprafaţa display-ului formată din 32 de linii a 30 de caractere (coloane) fie- 
care, se poate iolosi în instrucțiunea PRINT funcţia: AT(linie, coloană). 
Exemplu : 
10 LET A$Ş="A=” 
20 PRINT AT (16,15); AS; 109 


va tipări la mijlocul ecranului textul A=100. 
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Funcţia AT este utilă în afişarea de valori sau texte, pe un desen realizat 
cu instrucțiunile grafice, sau pentru tipărirea într-o anumită zonă a ecranului, 
indiferent de poziția curentă, în care urma să se tipărească. Poziţia (1, 1) este 
în colțul din stînga sus al ecranului, iar (32, 30) în dreapta, jos. 


9.4.8. Exerciţii 


1. Instrucţiunea INPUT este deseori precedată de instrucțiunea PRINT, de exemplu; 
i0 PRINTI “INTRODUCETI DATELE” 
20 PRINI "N="; 
390 INPUT N 


Valoarea lui N va fi afișată pe același rind cu mesajul X=—, deoarece instrucțiunea 
29 PRINT se termină cu;. 
Similar, pentru introducerea de texte: 
10 PRINT “DORITI O NOUĂ EXECUTIE”; 
20 INPUT R$ 


răspunsul introdus fiind DA sau NU, în urma căruia în program se va executa o decizie. 
2. Executaţi următorul program: 


10 INPUT A$ 
20 PRINT A$; "="; VAL (AŞ) 
30 GOTO10 


Introduceţi instrucţiuni PRINT suplimentare astfel încît calculatorul să precizeze ce 
intenţionează să facă și să ceară politicos datele de intrare. De remarcat că expresi: introdusă 
spre evaluare (în A$), poate conţine orice fel de prelucrări numerice inclusiv variabiie, a căror 
valoare trebuie introdusă în prealabil. De asemenea, șirul A$ trebuie să fie alocat într-o instruc- 
țiune DIM, iar în instrucţiunea 10 să se utilizeze notația (TO) pentru a îinpicdica reaiocarea 

5 DIM A$ (40) 
10 INPUT AS (TO) 


3. Cum se poate opri execuţia programului din exerciţiul precedent? (CLRL/C în 
INPUT sau CTRL între instrucţiuni, sau + + - RESET). Dacă execuţia s-a oprit între instruc- 
țiuni, cum se poate relua fără alterarea variabilelor ? 


4. Scrieți un program care calculează suma curentă a numerelor introduse. 

Indicaţie : Se utilizează variabilele T pentru păstrarea totalului curent și V pentru nu:mă- 
rul introdus T se inițializează cu valoarea 0. Se citește un număr în V, se adună la 1 și se tipă- 
rește T. Se repetă cu introducerea altui număr. 


5. Pentru a simula mișcarea unui simbol grafic* într-o anumită direcţie se va afişa şi se 
va șterge simbolul respectiv, progresînd cu cîte un pas în direcția respectivă. Se va utiliza în acest 
scop instrucţiunea PRINT cu funcţia AT. 

10 LET X=1 

20 PRINT AT(5,X); “C“; 
30 PRINT AT(5,X);* “; 
40 LET X=X+1 

0 GOTO 20 


Programul de mai sus are Gszavantajul că, la terminarea liniei cind X. devine > 360, se con- 
tinuă incrementarea sa. Pentru a evita acest lucru se introduce instrucţiunea : 


45 IF X>30 THEN 19 


* Caracterul grafic este notat cu „C“* 
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care, reîncepe execuţia de la linia 10 dacă X a devenit mai mare decit 30. Un alt dezavantaj 
este timpul scurt în care simbolul apare pe ecran, datorită intervalului de timp scurt între afi- 
şare și ștergere. Pentru a mări această durată se introduce între liniile 20 şi 30 un ciclu FOR fictiv : 


22 FOR F=1 TO 10 
25 NEXT F 


Acest lucru însă, are dezavantajul că micșorează viteza globală de execuţie a programului. 
Se recomandă următoarea soluție: 


10 LET X=1 40 PRINT AT(5,P); + “;AT(,X); "CC"; 
20 LET P=N 50 IE X=29 THEN 19 
30 LET X=XN+I1 60 GOTO 20 


Programul folosește două variabile. X păstrează poziţia curentă a caracterului, iar P pozi- 
ţia anterioară, care va fi ștearsă. Simbolul apărind mereu pe ecran, crește impresia de viteză. 
De remarcat că, în aceeași instrucţiune PRINT poate apare de două ori specificația AT pentru 
poziționare. O altă soluţie constă în scrierea caracterului precedat de spaţiu, PRINT AT (5, X); 
"C", astiel: 


10 x=1 40 IE X>29 THEN 10 
20 PRINT AT(5,X); “C”; 50 GO TO 290 
30 A=S+l1 
O îmbunătăţire adusă programului se referă la utilizarea instrucţiunii FOR pentru ciclare 
10 FOR X=1 TO 29 30 NEXT X 


20 PRINT AT(5,X); “0; 40 GOTO 10 


Pentru mişcarea unui pătrăţel (1/4 dintr-un caracter), pot îi utilizate similar instrucţiu- 
nile PLOT şi UNPLOT. În programele de mai sus, în poziţia 30 a liniei, va rămîne caracterul 
fără a fi șters. Pentru a-l şterge, se introduce (în ultimul exemplu) : 35 PRINTAT (5,30); “; 


Cum puteţi descrie mișcarea simultană a mai multor caractere (figuri) ? 


6. Funcţia STR$ este foarte utilă, dar deseori neglijată. Aşa cum s-a arătat, ea este uti- 
lizată pentru conversia unei valori numerice într-un şir de caractere, identic cu cel obținut prin 
tipărirea sa cu PRINT. Încercaţi următorul program : 

10 PRINT 2, STRS (2) 
20 PRINT 1/3, STR$ (1/3) 
30 PRINT 9E15, STR$ (9E15) 


Se observă că, valorile afișate sînt identice. Utilizarea principală a funcţiei STRŞ este în 
formatarea rezultatelor afișate. Se vor indica citeva exemple. 


a) Așezarea punctului zecimal în poziţia dorită. Executaţi programul : 


10 LET A=RND (0)*10000 30 LET A=A*10 
20 PRINTI A 40 GO TO 20 
Se obţine următoarea secvenţă ! 
0.152587 1525.87 
1.52587 15258.7 
15.2587 152587 
152.587 


Valorile sînt mai uşor de comparat dacă le putem alinia pe verticală la nivelul punctului 
zecimal, astfel : 

0.152587 
1.52587 

15.2587 

152.587 

1525.87 
15258.7 
152587 
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Pentru aceasta se modifică programul de mai sus folosind funcţia STR$. 


5 1=6 30 A=A*10 
10 A=RND (0)*10000 35 I=1+1 
20 N=LEN (STR$ (INT (4A))) 40 GO TO 20 


22 PRINT AT(I,15—N); A 


Variabila 1 este utilizată pentru a indica linia în care se tipărește cu funcţia AT în instruc- 
țiunea 22 PRINI. 

Expresia LEN (STRS (INT (A))) calculează lungimea părţii întregi a numărului. Astfel, 
dacă A=—15.2587, atunci STR$ (INT (A))='15”, șir cu lungimea 2, deci tipărirea se va începe 
din coloana 15-2=13, încit, toate numerele vor avea punctul în coloana 15 (exceptind cele în 
notație ştiinţifică). Execuţia programului va fi oprită de la tastatură, acţionind CTRL. 

b) Tipărirea cu un număr dorit de cifre la partea zecimală. Se vor tipări, de exemplu, 
numerele cu trei cifre după punctul zecimal. 


5 1=6 35 IFM <> N THEN 45 

10 DIM B$ (15) 40 BS (N+1)=".” 

15 A=RND (0)*100 45 PRINT AT (|, 15-C); BS(TON+4) 
20 M=LEN (STRS (4A)) 50 A=A*10 

25 N=LEN (STR$ (INT (A))) 55 I=I1+1 

30 BS (TO)=STR$ (A)+ 0000” 60 GO TO 29 


Variabila I este utilizată în același scop ca la exemplul precedent (indică numărul liniei). 
M conţine lungimea totală a numărului, iar N numărul de cifre al părţii întregi (ca și în exemplu! 
precedent). În variabila B$ se „asamblează“ numărul urmat de eventuale zerouri. Dacă numărui 
este întreg (test realizat în instrucțiunea 35 IF), se adaugă și punctul zecimal (în locul unuia din 
cele patru zerouri). 

c) Economisirea spaţiului de memorie şi definirea de funcţii. Deseori este utilă manipu- 
larea numerelor tratate ca şiruri de caractere, în loc de a le prelucra numeric, iar în final, evalua- 
rea lor cu funcţia VAL. Astfel, se pot stoca numerele sub formă de șiruri, cu ajutorul funcţiei 
STR$: 


LET A$=STRS (1024) 


apoi, se revine la valoarea numerică cu VAL : PRINT VAL (A$). 


În acest caz însă, memorarea lui 1024 ca şir în variabila A$, consumă mai multă memorie 
decit păstrarea lui ca număr. Dacă se aplică funcţia VAL unei expresii ca “ATN (X)*4“, varia- 
bila X fiind definită în prealabil, evaluarea va fi corectă, deci, o expresie care poate conţine varia- 
bile, se definește o singură dată în program și poate fi evaluată pentru diverse valori ale varia- 
bilelor, cu ajutorul lui VAL (similar cu instrucțiunea DEFFN din unele versiuni BASIC). De 
exemplu, pentru generarea unui număr aleator între 1 și 1) se va defini la începutul programului 
şirul : 

A$= “INT (RAND (0)*10+1)” 
şi de fiecare dată cind sc dorește un număr, se va obţine prin utilizarea funcţiei VAL (AŞ), 
N= VAL (A$). 


si 


9.4.9. Instrucţiuni de control (transfer necondiţionat, condiționat ş 


ciclare) 

În mod normal, execuţia instrucțiunilor unui program este secvenţială. 
Totuşi este necesar uncori repetarea de mai multe ori a execuţiei unor instruc- 
ţiuni (fără să fie scrise repetat) sau, în funcţie de valoarea unor date, să nu se 
execute instrucţiunea următoare, ci să se treacă la execuţia alteia, dintr-o 
altă zonă a programului. 

Instrucţiunile care modifică execuţia secvenţială a programului sînt 
instrucţiunile de control. În BASIC ele sînt următoarele : 

— instrucțiunea GOTO, care realizează transferul necondiţionat (inde- 
pendent de date); 
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— instrucţiunile ON şi IF pentru transfer condiționat ; 
— instrucţiunea de ciclare FOR. 


Instrucţiuni de transfer necondiţionat. Pentru transferul necondiționat 
se foloseşte instrucțiunea GOTO. 

Format : nr. linie GOTO n 

Execuţia instrucţiunii constă în transferul controlului la instrucțiunea 
cu numărul de linie n. Saltul se poate face la orice instrucţiune din program. 


Exemplu s 
10. ai A=SQR (X 712+Y 12) 


=] GoTo 199 
() Goro 10 
100 PRINT A 


Instrucţiuni de transfer condiţionat. Pentru realizarea transferului con- 
diționat sînt disponibile două instrucțiuni : instrucţiunea IF şi instrucţiunea ON. 
Formatul instrucţiunii IF este: 
nr. linie IF expl relație exp2 THEN nl 
unde: — expl şi exp2 sînt expresii numerice su şiruri 
— nl este un număr de linie, 
— relație poate îi: 
egalitate 
mai mare 
mâi MIC 
mai mare sau egal >= sau => 
mai mic Sau egal  <= sau =< 
diferit <> sau >< 
Dacă relaţia dintre expl şi exp2 este adevărată se va trece la instruc- 
țiunea cu numărul de linie nl, dacă nu, execuția va continua cu instrucţiunea 
care urmează după IF. 


AVI 


Exemplu : 
100 IF X+ Y=SQR (3) THEN 75 

În cazul comparației şirurilor de caractere, ambele expresii trebuie să fie de 
tip şir. Şirurile sînt egale dacă au aceeași lungime şi conțin aceleași caractere. 
Exempiu : 

i 10 LET A$="ABG” 

20 IF A$Ş="ABC” THEN 109 

După execuțiainstrucțiunii 20 se va sări la execuția instrucţiunii 109. 

Un şir se consideră mai mic decit altul, dacă are lungimea mai mică sau, 
în cazul lungimilor egale, dacă în ordonarea lexicografică, primul şir precede 
pe al doilea (cifrele şi semnele speciale preced literele —conform cu codurile 
ASCII). | 


Exemplu : ” ABC“ este mai mic decit "BCD". 
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Următoarea secvență de program, testează dacă de la consolă s-a acţionat 
caracterul "'A"', dacă da se continuă execuţia, dacă nu, tipăreşte caracterul 
citit (sau șirul nul, în cazul cînd nu s-a acționat nici o tastă) şi opreşte execuţia 3 


10 LET A$=INKEY$ 
20 IF A$=—"A"THEN 59 
30 PRINT A$ 

40 STOP 

po... 


Programul următor scrie la mijlocul ecranului textul ABC și il şterge 
la acţionarea alternativă a unor taste: 
10 IF INKEY$=” “THEN 19 
20 PRINT AT (16, 15) “ABG” 
30 IF INKEY$=” ” THEN 39 


40 PRINT AT (16,15)%  ”* 
50 GOTO 10 


Formatul instrucţiunii ON este: 


nr. linie ON expresie GOTO listă 
sau 
nr. linie ON expresie GOSUB listă 


unde listă reprezintă un şir de numere de linie. 

Fie N partea întreavă a valorii expresiei specificate în instrucțiunea ON, 
Execuţia instrucţiunii constă în saltul la instrucţiunea cu al N-lea număr de 
linie din listă. În cazul lui ON-GOSUB, fiecare număr de linie, din listă reprezintă 
startul unei subrutine din program. Dacă N nu se încadrează între : 


ISN=<SS .:v:rărul de elemente din listă, 
atunci exccuţi cvutinuă cu instrucţiunea care urmează după ON. 
Exemple : 
10 ON M-5 GOTO 109, 590, 99, 75, 550 


M-5 trebuie să aibă o valoare între 1 și 5 altfel, instrucțiunea nu are 
nici un efect. 


20 ON X GOSUB 1090, 2000, 3009 


În funcţie de valoarea lui X se execută una din cele trei subrutine care 
încep la liniile 1000, 2009 sau 3000. 


Instrucţiuni de cielare. Instrucţiunile de ciclare sint folosite pentru exe- 
cuția repetată a unor instrucțiuni din program (numite cicluri sau bucle în 
program). 

Pentru acest lucru se puteau utiliza instrucțiunile de transfer. Introdu- 
cerea unor instrucțiuni speciale de ciclare s-a făcut în scopul simplificării 
muncii programatorului. 


În BASIC, pentru realizarea ciclurilor, se utilizează instrucțiunile FOR 
și NE XI. 
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Formatul instrucţiunilor : 


nr. linie FOR variabilă=expl TO exp2 STEP exp3 
(instrucţiuni ce formează bucla) 
nr. linie NEXT variabilă 
unde:  — variabilă reprezintă o variabilă simplă care este folosită pentru 
controlul numărului de repetări ale buclei. Bucla constă din instruc- 
țiunile care se găsesc între instrucţiunea FOR și instrucţiunea 
NEXT, cu aceeași variabilă. 
— expl, exp? şi exp3 sînt expresii. 
Semniticația acestor expresii este următoarea : 
expl — este valoarea inițială care se atribuie variabilei din instrucțiunea FOR, 
exp2 — este valoarea finală a variabilei, 
exp3 — este incrementul (pasul) care se adună la valoarea variabilei FOR, de 
fiecare dată” cînd se execută instrucţiunile din buclă. 
Observaţie : 
Este posibil ca exp3 să nu se specifice, instrucțiunea FOR avînd forma : 
nr. linie FOR variabilă = expl TO exp2 
În acest caz valoarea pasului (exp3) se consideră 1. Bucla se execută 
atita timp cît valoarea variabilei FOR este mai mică sau egală cu exp2. 


Execuţia instrucţiunii NEXT constă în adunarea valorii pasului (exp3) 
la valoarea variabilei FOR şi testul dacă noua valoare a variabilei nu depă- 
șeşte valoarea limită (exp2). Dacă valoarea limită este depăşită execuția buclei 
ia sfirșit, următoarea instrucțiune executată fiind cea de după NEXT. 


În interiorul unei bucle FOR pot exista alte bucle cu condiţia ca buclele 
să nu se intersecteze. 


Exemplu” corect Exemplu incorect 
10 FOR XxX= 10 FOR X= 
50 FOR Y= 70 FOR Y= 
100 FOR Z= 120 NEXT X 
e e a 300 NEXT Y 
170 NEXT Z 
300 NEXT Y 
700 NEXT X 


Sint permise maximum trei bucle FOR incluse una în alta. 


Nremplu : 


109 FOR I=1 TO3 

120 FOR J=1 TO 20 STEP 1 
130 READ B (1. J) 

1490 NEXT J 

150 NEXT I 


Instrucţiunea 130 READ se va executa de 20x3=60 de ori. 
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9.4.10. Exerciţii 
1. Programul următor afişează setul complet de caractere. 


10 FOR N=0 TO 127 30 NEXT N 
20 PRINT CHR$ (N) 40 STOP 


Să se modifice programul, utilizînd iuncţia AT în PRINT și afișind numai cifre, pentru 
a se obţine un ceas electronic. (Temporizarea se poate realiza cu un ciclu FOR). 


+ 2. Pentru calculul sumei a N numere reale se poate utiliza programul : 


blo PRINT 'N="; 35 S=S+A 

15 INPUT N 40 C=C+1 

20 C=1 50 IF C<=N THEN 30 
25 S=0 60 PRINT S 

30 INPUT A 


Să se descrie același algoritm de calcul folosind instrucţiunile de ciclare FOR/NEXT cu 
variabila contor C. 


3. Următorul program afișează numărul cu valoarea maximă dintr-un șir de 5 numere 
introduse : 


19 INPUT M 50 M=A 
20 FOR I=2 TO 5 60 NEXT | 
30 INPUT A 70 PRINT “MAXIMUL="; M 


40 IF M>=A THEN 60 


Programul poate fi utilizat pentru aflarea maximului dintr-un șir de 10 sau 100 de valori 
dacă modificăm limita 5 din instrucţiunea 20FOR. Ce trebuie modificat în program pentru a 
calcula minimul. 


4. Să se modifice programul de calcul al sumei (din exerciţiul 2) astfel incit să calculeze 
produsul numerelor nenule din cele N numere (pentru simplificare se va folosi ciclul FOR/NEXT). 


5. Pentru calculul factorialului dintr-un număr natural dat poate fi utilizat programul: 


10 PRINT “INTRODUCETI N="“; 40 P=P"l 
20 INPUT N 59 NEXT I 
25 P=1 60 PRINT "'NI=";P 


30 FOR I=2TO N 
Să se găsească o altă soluţie pentru această problemă. 
6, Executaţi programul: 


10 FOR N=160 TO 1 STEP-1! 
20 PRINT N 
30 NEXT N 


Transformaţi acest program în unul ce nu conţine ciclul FOR-NEXT (procedind invers 
exercițial 2). 


7. Fie dat un vector A de zece elemente. Programul de mai jos, erdonează crescător ele- 
mentele acestui vector, deci, în final va fi satisfăcută relaţia A(1)sA(2)s :--sA(19). 


10 FOR I=1 TO 19 

15 READ AI) 

20 NEXT I 

25 FOR I=1 T09 

30 FOR J=>1 TO 19—1 
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40 IF A U)<=A (+1) THEN 70 60 A (J+1)=T 
50 T=A (U) 70 NEXT J 
55 A (U)=A +1) 89 NEXT | 
85 REM “AFISAREA REZULTATU-= 


LUI”! 
99 FOR 1=1 TO 10 
100 PRINT A (1). 
110 NEXT 1 
120 END 


De remarcat că, aceeaşi variabilă I poate apare în mai multe cicluri FOR-NEXT, fără 
conflict, dacă ciclurile respective nu se intersectează (nu au instrucţiuni comune). De ce a fost 
necesară utilizarea variabilei T în instrucţiunile 50 şi 60?. 


Cum poate fi accelerat acest algoritm ? Să se indice un alt algoritm (program) pentru 
această problemă ? Ciclurile (10—20) pentru citire și (90—110) pentru tipărire pot îi înlocuite 
prin cite o singură instrucțiune matriceală (vezi capitolul : instrucţiuni de calcul cu matriei), 
Să se modifice programul astfel încît să ordoneze un vector A cu N elemente, 2sNs254. 


pa 

8. Similar cu exerciţiul 7, se prezintă un program ce ordonează crescător (sortează alfa- 

betic) o listă de nume, care sînt depuse într-o matrice de șiruri de caractere. Programul se deose- 

beşte de cel precedent prin faptui că utilizează instrucţiuni IF pentru ciclare, iar ordonarea se 

tace descrescător, însă, afișarea făcîndu-se începînd cu ultimul șir către primul (maxiin), rezul- 
tatele vor fi afișate în ordine alfabetică (crescătoare). 


10 REM “SORTARE ALFABETICĂ” 120 1F W$S(B)>WS(Z) THEN 159 


20 DIM W$ (5, 10) 130 Z=Z+1 

30 LET B=9 149 GOTO 199 

40 LET G=5 150 QS=Ws (2)! 

59 FOR A=1 TO 5 160 Ws (Z)=Ww$ (B) 

60 INPUT W$ (A) 170 WS (B)=Q5 

70 PRINT W$ (A) 189 GOTO 139 

30 NEXT A 199 PRIN? W$ (G) 
85:PRINT 200 G=G—1 

99 LET Z=1 210 IF G>0 THEN 994 
190 B=7+1 220 END 


110 IF B>G THEN 196 


Programul folosește tabloul W$ (5, 10) pentru păstrarea a 5 șiruri de maximum 19 carac- 
tere fiecare. Pentru extinderea la un număr mai mare de șiruri, trebuie modificate instrucţiunile » 
20 DIM, 40 LET și 50 FOR, scriindu-se în locul cifrei 5 un număr dorit (maximum 254). 
Se observă că, afișarea rezultatelor se face rind pe rind, imediat după obţinerea, pe ultima pozi- 
ție în W$, a șirului mai mic. Cum poate fi modificat programul pentru a afișa rezultatul, din 
W$ (5, 10), după ordonarea sa integrală (ca în exerciţiul precedent) ?. 


9.4.11. Utilizarea subrutinelor. Cînd este necesară efectuarea de mai multe 
ori Într-un program a acelorași calcule (instrucţiuni) pentru date eventual dife- 
rite, se poate folosi conceptul de subrutină. Utilizarea subrutinelor conduce 
la o diminuare a dimensiunii programului, deoarece prelucrările se descriu o 
singură jdată (în cadrul subrutinei) şi pot fi executate de cite ori este nevoie, 
prin apelarea subrutinei, eventual cu alte date. Folosirea funcțiilor (SIN, COS, 
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LOG, GET, PUT etc.) în alcătuirea expresiilor, constituie un exemplu în acest 
sens, deoarece funcţiile sint definite o singură dată, în interpretor, şi sînt 
apelate cu diferite argumente de către programator. 


Pentru definirea unor Subrutine mai puternice (ce descriu prelucrări 
complexe asupra datelor), în limbajul BASIC sînt disponibile instrucțiunile 
GOSUB, RETURN şi CALL care vor fi descrise în continuare. 


Instrucţiunile GOSUB şi RETURN. Aceste instrucţiuni permit utilizarea 
subrutinelor în BASIC. 


Atunci cînd o succesiune dată de instrucțiuni, apare de mai multe ori 
într-un program, în locuri diferite, ea poate îi scrisă ca subrutină. 


GOSUB 
Format : 
nr. linie GOSUB nl 

Execuția instrucţiunii constă în transferul controlului la instrucţiunea 
cu numărul nl. 

Instrucţiunea nl poate îi oricare dintre instrucțiunile ce alcătuiesc o 
subrutină (în general prima). 

RETURN 


Format : 
nr. linie RETURN 


Execuţia instrucţiunii constă în transferul controlului la instrucțiunea 
ce urmează după instrucțiunea GOSUB, care a apelat subrutina. 


J xemplu » 
109 LET X=5 500 Y===3*xX 
119 GOSUB 509 510 LET Z=1.2*EXP (Y) 
120 X=7 520 LET Y=SQR (Z+2) 
139 GOSUB 509 530 IF Y<109 THEN 550 
140 X=11 549 RETURN 
159 GOSUB 509 550 PRINT X, Y 
160 STOP 560 RETURN 


Variabilele în BASIC sînt globale, deci cele utilizate într-o subrutină 
pot fi apelate şi în altă parte a programului. 


Apelarea subrutinelor serise în limbaj mașină. Pentru a apela, dintr-un 
program scris în limbaj BASIC, subrutine scrise în limbaj mașină, se utilizează 
instrucţiunea CALL 


Formatul instrucţiunii este următorul: 


nr. linie CALI. (M, P1, P2, ..., PN) 


unde : 
— M este numărul subrutinei (de la 6 la 254) 


— P1,... PN sînt parametrii (constante, variabile sau expresii). 
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Monitor 


Legătura dintre numărul subrutinei şi 
adresa din memorie, unde se află subrutina, 
se stabilește prin intermediul unei tabele 


| 

300 sui la care se află la o adresă prestabilită 
Interpretor bd (fig. 9.1, harta ocupării memoriei). O 
BASIC intrare în tabelă conţine trei octeți. În primul 
3FFFH EEE octet se află numărul rutinei iar în următorii 
doi adresa. Sfirşitul tabelei este detectat prin 
6000 -———— intilnirea unei intrări cu numărul 255. În 
Veriabile Monor cazul cînd nu se folosesc subrutine în limbaj 
iii varabre Memorie. mașină, apelate dintr-un program BASIC, 

| Y 


635EH 
640pH 
6800H 


[] 
i i 


Sudrutine in 
ImbQ| MaSIra 


Hiemo;:e 
D!SPONIDIia 


Stivyn (SP) 
Fig. 9.1. Harta ocupării me- 
moriei. 


tabela se reduce la un singur octet cu valoa- 
rea 255. În acest caz, iniţializarea tabelei 
(octetului) se face automat, de către inter- 
pretorul BASIC, la lansarea sa în execuţie, 
prin comenzile B sau G(0800 (vezi parapru- 
ful 9.3.1). 

_Transferul parametrilor se asigură prin 
referință. Adresele parametrilor (pe doi octeți) 
sînt depuse în stivă, indicată de registrul SP, 


în ordinea: adresă de întoarcere în programul BASIC, adresa Pl, adresa 


P2, ..., adresa PN. 


Deci subrutinele în limbaj mașină, în cazul în care folosesc parametrii 
(primesc şi/sau returnează), vor trebui să facă uz de instrucțiuni POP, pentru 
obținerea adreselor parametrilor şi să se termine cu instrucţiunea RET. 


Observaţii : 


1. Subrutinele în limbaj mașină trebuie să descarce din stivă adresele 
tuturor parametrilor înainte de terminare (RET), pentru ca adresa luată din 
stivă, la execuţia instrucţiunii RET, să fie cea depusă de interpretor. Inter- 
pretorul nu face nici un control în acest sens. 

2. Parametrii au valori reale, reprezentate pe patru octeți în formatul 
cu virgulă mobilă. Îa subrutina scrisă în limbaj maşină, trebuie să se țină 
seama de această reprezentare, pentru ca prelucrarea să fie corectă. 

3. În cazul cînd parametrii sînt nume de tablou (vector sautmatrice) ele- 


mentele tabloului sînt depuse în memorie liniar, pe coloane (în cazul matricilor), 
fiecare element ocupînd patru octeți. La subrutină se transmite adresa primului 
element de pe prima coloană. Știind acest lucru, se poate avea acces în cadrul 
subrutinei la oricare element al tabloului. 

4. Parametrii variabile simple, nedefinite în prealabil (care vor primi 
valori rezultate din subrutină), nu trebuie să fie intercalați cu parametrii 
expresii. 

Exemplu : 

În continuare se arată cum trebuie actualizat indicatorul la memoria 
disponibilă (IMD)* și definită tabela de legături, pentru utilizarea a trei sub- 
rutine cu numerele 1,2 și 4. 


* IMD este iniţializat cu valoarea 6800H, deci indiferent dacă se utilizează subrutine, 
se rezervă o zenă de i1Ke (400FH) pentru subrutine. 


Instrucţiunile limbajului BASIC 77 


ORG 635EH ; adresa lui IMD * 
IMD ; DW MD ISP ; actualizare IMD 
TSUB : DB 1 ; intrare pentru 
DW SUB1 ; subrutina nr. 1 
DB 2 
DW SUB2 ; adresa subrutinei 2 
DB 4 ; intrare pentru 
DW SUB3 ; subrutina nr. 4 
DB 255 ; sfirşit tabelă 
SUB1 : . ; cod pentru 
; subrutina nr. 1 
RET 
SUB2 : . ; cod pentru 
. ; subrutina nr. 2 
RET 
SUB3 : . ; cod pentru 
. ; subrutina nr. 4 
RET 
MD ISP EQU Ş ; inceput memorie 
END ; disponibilă 


Codul rezultat în urma asamblării programului de mai sus, scris în limbaj 
de asamblare, va trebui să fie introdus la adresa specificată, cu ajutorul comen- 
zilor MONITOR, înainte de lansarea in execuție a interpretorului BASIC. 
După introducerea subrutinelor în limbaj maşină interpretorul BASIC se lan- 
sează în execuție cu comanda G(815 (pentru a nu se face inițializarea impli- 
cită a lui IMD, ca în cazul absenței subrutinelor). 


94.12. Exereiţii 


1. Unele aplicaţii necesită accesul la memoria calculatorului pentru scrierea sau citirea 
valorii unui octet de la o anumită adresă. După cum se știe unitatea de memorie adresabilă este 
octetul, iar procesorul poate adresa 65536 octeți (64 Ko). Pentru realizarea acestor funcţii, unele 
versuri ale limbajului BASIC conţin instrucţiuni speciale, de exemplu: PEEK A — funcţie a 
cărei valoare este conţinutul octetului de la adresa A, cu 0sAs65535 ; iar POKE A, V esteo 
instrucţiune ce înscrie în octetul de la adresa A valoarea V, cu 0sVs255. Se vor simula aceste 
două instrucţiuni utilizînd două subrutine în limbaj de asamblare apelate cu CALL din BASIC. 
Astfel, pentru PEEK A, se definește subrutina numărul 1, cu parametrii A și B; A va conţine 
adresa iar în B se va depune valoarea octetului de la adresa A. Pentru POKE A, V se definește 
a doua subrutină cu parametrii A și V care va înscrie la adresa A valoarea V (0sVs255). 

Subrutinele se vor apela, dintr-un program scris în BASIC, prin CALL (1, A, B) pentru 
PEEK A şi CALL (, A, V) pentru POKEA, V. 

Subrutinele în limbaj de asamblare sînt precedate de tabela de legătură : 


ORG 635EH ; adresa IMD 
IMD : DW SFSUB ; actualizare IMD 
DB 1 ; tabela de legătură 
DW PEEK ; adresa subrutinei PEEK 
DB 2 ; intrare pentru a 
DW POKE ; 2-a subrutină 


DB 255 ; sfîrşitul tabelei 
PEEK : POP B ; în reg. B, C adresa celui 
; de-al 2-lea parametru 


* În cazul cind subrutinele nu depășesc 1Ko, se poate lăsa valoarea implicită pentru 
IMD (6800H), începindu-se cu ORG 6499H şi definirea tabelei TSUB 
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POP D ; în D, E adresa variabilei 
; A (primul parametru) 
PUSH B ; salvare reg. B, C 
CALL ADRDE  ; în reg. D, E adresa de la care citim 
POP B ; în reg, B, C adresa la care depunem 


; valoarea citită 
ș valoarea va trebui memorată în formatul cu virgulă mobilă 


LDAX D ; în reg. A octetul citit 
MVI L, 8 ; normalizare 
NORM: ORA A 
JZ NULFL  ; valoarea este zero 
IM GATA 
RAL 
DCR Il: 
IMP NORM 
NULEFL : MVI L, 49H ; exponentul lui zero 
GATA : STAX B ; scrierea rezultatulu: în 
INX B ; virgulă mobilă 
XRA A 
STAN B 
INX B 
STAX B 
MOV A,L ; exponentul 
INX B 
STAX B 
RET 
POKE.: ; subrutină care scrie valoarea celui de-al 
; Qoilea parametru la adresa dată de primul 
POP B ; în B, C adresa valorii 
LDAX B ; conversie în întreg 
ORA A 
I7 CONT 
MOV D, A ; salvare în reg. D 
INX B 
INN B 
INX B 
LDAN B ș citire exponent 
ANI OFH 
MOV E, A 
MOV A, D 
RLC 
DCR E 
JINZ $—-2 
ș în reg. A se află valoarea ps V=<255, convertită în întreg 
POP D ; adresa primului parametru 
MOV BA ; salvare valoare 
CALL ADRDE 
MOV A,B ; depunerea valorii la 
STAX D ; adresa din reg. D, E 
RET 
ADRDE. : ; subrutină ce primește în 


; D, E adresa unui număr în 

; virgulă mobilă și întoarce în 

; D, E valoarea sa (ca număr întreg) 

LDAX D ; în reg. A primul octet al 
ORA A ; mantisei. Este O? 

JZ ZERO ; numărul este zero 
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MOV H, A 
INX D 
LDAX D 
MOV L, A ; în (H, L) primii 2 octeți ai 
; numărului 
INX D 
INX D 
LDAX D ; în reg. A exponentul 
ANI IFII ; se păstrează ultimii 
MOV C.A ; 5 biţi, salvare în reg. C 
LXI D, 0 ; D, E=0 
CONV: DAD H 
XxCHG 
ADC HL, HL ; HL=HL+HL+CY (Z80) 
DCR C 
XCHG 
RZ 
IMP CONYV 
ZERO : LXI D, 0 
RET 
SFSUB EQU ş 
END 


Codul obiect rezultat în urma asamblării subrutinelor, se va depune în memoria calcu- 
iatoruilui (cu comanda Substitute (S) a monitorului). Apoi, se lansează în cxecuţie interpreto- 
ral BASIC, cu comanda G0800. În continuare, se poate introduce un program BASIC care uti- 
jizează subrutinele în limbaj mașină : 


10 PRINT “INTRODUCETI ADRESA A=”; 
20 INPUT A 

25 PRINT “INTRODUCETI VALOAREA V=” ; 
30 INPUT V 

40 REM “ÎN OCTETUL DE LA ADRESA A” 
45 REM ''VOM DEPUNE VALOAREA V” 

50 CALL (2, A, V) 

60 REM “PENTRU TEST VOM CITI” 

65 REM ''VALOAREA SCRISA SI O VOM AFIȘA” 
70 CALL (1, A, C) 

80 PRINT C 

99 GOTO 19 


Programul următor realizează aceeaşi funcţie ca şi comanda Fill a moni- 
torului 


10 INPUT A1, A2, V 
20 FOR A=Al1 TO A2 
30 CALL (8, A, V) 
40 NEXT A 
59 END 
Pentru ca programele să funcţioneze corect, trebuie ca adresele introduse 
să rorespundă zonei de memorie R/W şi să nu altereze programul BASIC (să 


nu se autodistrugă). 


În cazul utilizării subrutinelor în limbaj mașină, comanda de ștergere a 
programului : SCR, va șterge și subrutinele în limbaj mașină. Pentruja nu intro- 
duce din nou subrutinele mașină de la tastatură, ele pot fi salvate pe casetă, cu 
comanda SAVE, imediat după ce au fost introduse şi s-a intrat în BASIC. În 
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acest caz, ele vor putea fi încărcate de pe casetă cu comanda LOAD înainte de 
introducerea unui program BASIC, de la tastatură, care le utilizează. 

2. Calculatorul dispune de un difuzor care este utilizat ca „martor sonor“ 
la apăsarea unei taste. Dacă se asociază tastelor sunete corespunzătoare notelor 
muzicale, se va transforma calculatorul într-un instrument muzical. 

Difuzorul este conectat prin portul de ieşire 22H (34 zecimal) pe bitul 3. 
Pentru a obține frecvenţa unei note dorite, se va transmite pe acest port şiruri 
de 1 şi 0 de durate corespunzătoare. Pentru a se transmite o valoare pe un port 
de ieșire poate fi utilizată funcţia PUT (nr. port) din BASIC, de exemplu : 

10 PUT (34)=0 
20 PUT (34)=8 (1 în bitul 3) 
30 GOTO 19 

Pentru a obține frecvenţe mai mari, trebuie să se utilizeze o subrutină 
în limbaj de asamblare. Astfel, se va defini o subrutină în limbaj de asamblare 
care va primi ca parametrii : frecvenţa notei dorite şi durata şi va genera un 
sunet corespunzător. Subrutina se va apela cu instrucțiunea CALL (1, F, D), 
după ce, în F s-a încărcat frecvenţa iar în variabila D durata. Valorile lui F şi D 
depind de modul în care s-a scris subrutina de generare și de frecvența impulsu- 
rilor de ceas ale calculatorului. 


Se va folosi următoarea subrutină în limbaj mașină : 


ORG 635EH 
DW MD ISP * adresa memoriei libere 


DB 1 ; Tabela de legătură 
DW SUNET  ; adresa subrutinei 
DB 255 ; sfîrșitul tabelei 
SUNEIT : POP H ; adresa celui de al doilea parametru (P2) 
CALL CVINT ; conversie în întreg 
MOV E, A ; valoarea P2 (durata) o păstrăm în reg. A 
POP H ; adresa Pl (frecvenţa) 
CALL CV INT ; conversie în întreg 
MOV B, A ; salvare P1 în reg. B 
LOOP1 MOV D, B ; în D frecvența 
LOOP2 : MVI A, 8 ; transmite 1 pe bitul 3 
OUT 22H ; al portului 22H 
DCR D 
INZ LOOP2 
MOV D, B ; în D frecvenţa 
LOOP3 : NRA A ; transmite 0 pe bitul 3 
OUT 22H ; al portului 22H 
DCR D 
INZ LOOP3 
DCR E ; decrementează durata 
INZ LOOP1 
RET 
CVINI : ; subrutină ce primeşte în reg. H, L adresa unui număr reprezentat 


; în formatul virgulă mobilă pe 4 octeți şi întoarce 
; valoarea sa (întreagă) în reg. A (se presupune că valoarea 
; numărului este cuprinsă între 6 și 255). 


MOV A, M ; primul octet al numărului 
ORA A ; este 0? 

RZ 

MOV D, A ; salvarea primului octet 
INX H ; în reg. D 


Instrucţiunile limbajului BASIC si 


INX H : 
INX H 
MOV A, M ; exponentul 
ANI OFH ; păstrează ultimii 4 biţi 
MOV C, A 
MOV A, D ; conversie în întreg 
RLC ; (aliniere la dreapta) 
DCR C 
INZ $—2 
RET 

MDISP': EQU Ş 
END 


După introducerea codului subrutinei cu comanda Substitute a Monitora- 
lui, se va lansa în execuţie interpretorul BASIC cu comanda G0800. Subrutina 
se va apela, așa cum s-a arătat, cu instrucțiunea CALI. din BASIC (de exemplu 
GAlal (,T, D)). 


29 24 22 2 20 19 18 177 


to 


5] 49 45 43 40 % 34 32 30 29 27 
Fig. 9.2. Parametrii de frecvenţă ai notelor. 


| 


Pentru a obţine (genera) notele dorite, parametrul de frecvență F, va avea 
valorile din figura 9.2. Programul următor asociază tastelor numerice 1, 2, 3, 4 
notele Do, Re, Mi, Fa. 


5 D=50 30 F=51 
7 F=5l 35 RETURN 
10) AS=INKEY$ 40 F=45 
15 IF A$="' "THEN 25 45 RETURN 
20 ON VAL (AS) GOSUB 30, 40, 50, 60 50 F=40 
25 CALL (1, F, D) 55 RETURN 
27 GOTO 10 60 F=—38 

70 RETURN 


O notă va dura pînă la acționarea unei taste (1—4), corespunzătoare 
altei note. 
Încercaţi să extindeţi programul, încît să asociaţi şi celelalte note unor 
taste. 
Programul următor generează note folosind generatorul de numere alea- 
toare pentru frecvenţă şi durată : 
10 CALL (1, INT (RAND (0)*90+ 10), INT (RAND (0)*50+5)) 
20 GO TO 10 
Generarea de note cu frecvenţe din ce în ce mai mari se poate realiza en 
programul : 
10 FOR 1=100 TO 10 STEP-1 
20 CALL (1, I, 50) 
30 NEXT I 
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Observaţie : Ștergerea programelor de mai sus, în vederea introducerii 


altora ce utilizează subrutina în limbaj de asamblare, nu se poate face cu SCR 
pentru că se va şterge și subrutina. Pentru a nu şterge programele linie cu linie, 
se va ieși de sub controlul interpretorului BASIC acţionind RESET, intrind sub 
controlul Monitorului, iar apoi se va reintra în BASIC cu comanda G0815. 
Astfel, subrutina în limbaj maşină va rămîne şi se va șterge doar programul 
BASIC. 


3. Se va utiliza o subrutină în limbaj mașină ce permite generarea de 


sunete de durată mai mare, folosindu-se pentru durată un contor pe doi octeți. 
Subrutina va primi tot doi parametrii, primul reprezentînd frecvenţa iar cel 


de-al doilea durata. 
ORG G35EH 
DW MD ISP 
DB 1 
DW NOTA 
DB 255 
NOTA : POP H 
CALL CVINT 
MOV E, A 
POP H 
MOV B, A 
SAR: CALL S 
DCR E 
INZ LAR 
RET 
Sp: LXI H,35FFH 
S1!: MOV D, B 
MVI A, 8 
OUT 22H 
S2.: DCX H 
MOV A,H 
ANA A 
RZ 
DCR D 
JINZ S2 
MOV D, B 
MVI A, O 
OUT 22H 
53; DCX H 
MOV A,H 
ANA A 
RZ 
DCR D 
INZ S3 
JMP S1 


adresa memoriei disponibile 


; programului în limbaj BASIC 


“e. 


adresa subrutinei 


adresa parametrului 2 
(durata) 

durata în reg. E 

adresa primului parametru 
în B frecvenţa 


decrementare contor 


în D frecvența 
1 în bitul 3 


buclă în care se 
generează 1 pe durata 
dată de reg. D. 


0 în bitul 3 


buclă în care 
se generează 
pe durata dată de 


reg. D 


Subrutina CVINT este identică cu cea din exemplul precedent. 
Programul următor va apela subrutina în limbaj de asamblare descrisă 
mai sus pentru interpretarea unei melodii. Frecvențele şi duratele sînt date în 
instrucţiuni DATA, fiind citite cu instrucțiunea READ. 


19 READ A, B 
29 CALL (1, A, B) 
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30 GO TO 16 

100 DATA 51 3, 45, 1, 40, 3, 51, 1, 40,2 

110 DATA 51, 2, 40, 4, 45, 3, 40, 1, 38, 2, 40,1 
120 DATA 45, 1, 38, 8, 40, 3, 38, 1, 34,3 

130 DATA 40, 1, 34, 2, 40,2, 

149 DATA 34, 1, 30, 2, 34,1, 

150 DATA 51, 1, 45, 1, 40, 1, 38, 1, 34,1 
160 DATA 30, 8, 30, 3, 45,1, 

170 DATA 34, 1, 30, 1, 27,8, 

180 DATA 38, 1, 34, 1, 30,1, 

190 DATA 27, 1, 30, 2, 38,2, 

200 END 


» 34, 2, 25,6 


Execuţia programului se va termina prin apariția erorii 21, deoarece au 
fost epuizate toate constantele din instrucţiunile DATA. Modificaţi programul 
utilizînd instrucțiunea RESTORE, reluiînd interpretarea” melodiei. 


9.4.13. Instrucţiuni de calcul cu matrice. Cu toate că instrucţiunile deja 
prezentate permit efectuarea de prelucrări asupra tablourilor, prin utilizarea 
variabilelor indexate (cu unul sau doi indici), limbajul BASIC conţine un set 
de instrucţiuni care permit prelucrarea tablourilor (cu una sau două dimensiuni) 
fără referiri la fiecare element al tabloului. În acest sens sînt disponibile urmă- 
toarele instrucţiuni : 


MAT READ A, B, ... Citeşte datele din instrucțiuni DATA pentru 
MAT READ A (3,4),B (10) tablourile A, B dimensionate în prealabil 
sau în instrucțiune. 


Observaţie : Datorită prefixului MAT, utilizat în instrucţiuni, tablourile vor fi numite matrice 
(indiferent dacă au una sau două dimensiuni). 


MAT INPUT A,B,.--: Citește datele pentru matricile A, B de la con- 
MAT INPUT A (2,4), B(3,3),.-.-.- solă. 
Datele introduse sint memorate linie cu linie, în matrice. 
MAT PRINT A, B, :-: 
MAT PRINT A (4,4), B(3,2),..-.: Tipărește linie cu linie valorile curente ale matrici- 
lor A, B dimensionate în prealabil sau redimensionate 
în instrucţiune. 


MAT A=B Matricea A primește dimensiunile lui B și apoi B este 
copiat în A. 

MAT A=B+C Adună sau scade matricile B și C. Matricile B şi C tre- 

MAT A=B—C buie să aibă aceleași dimensiuni. Matricea A are dimen- 
siunile matricii rezultat. 

MAT A=B*C Înmulţește matricile B și C şi depune rezultatul în 


matricea A, care va primi dimensiunile rezultatului. 
Dimensiunile matricilor B şi C trebuie să fie compati- 
bile (produs de matrici). 

MAT A=(expresie)*"B Realizează produsul matricei B cu un scalar egal cu 
valoarea expresiei dintre paranteze. Rezultatul pro- 
dusului este depus în matricea A, care este dimensio- 
nată corespunzător. 

MAT A=INV (B) Inversează matricea pătrată B. 

MAT A=INV (B),D Inversa este memorată în matricea A care va avea 
dimensiunea lui B. Valoarea determinantului va fi 
atribuită variabilei D. 

MAT A=TRN (B) Calculează transpusa matricei B și depune valoarea 
în matricea A, care va avea dimensiunile matricei 
rezultat. Tablourile A și B trebuie să fie distincte. 
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al 
MAT A=ZER Atribuie tuturor elementelor matricei A valoarea zere. 
MAT A=ZER (3, 4) Matricea A poate fi redimensionată conform speel- 
MAT A=ZER (7) ficaţiilor din instrucţiune. 

MAT A=CON Atribuie tuturor elementelor matricei A valoarea 1. 
MAT A=CON (3, 10) Matricea A poate fi redimensionată conform speci- 
MAT A=CON (8) ficaţiilor din instrucţiune. 

MAT A=IDN Atribuie elementelor diagonalei principale valoarea 1, 
MAT A=IDN (2,5) celorlalte clemente li se atribuie valoarea zero. Dacă A 
MAT A=IDN (7) este matrice pătrată ea va deveni matrice unitate. 


Observaţie : 

Instrucţiunile matriciale pot fi împărțite în două categorii : 

— instrucţiuni de intrare/ieșire 
MAT READ 
MAT INPUT 
MAT PRINT 

— instrucțiuni de atribuire — în care matricei din membrul sting i se 

atribuie rezultatul unei operaţii matriciale. 

Matricile introduse prin instrucţiunile de intrare/ieșire sau matricea din 
membrul stîng al unei instrucţiuni de atribuire, pot fi alocate la execuția instruc- 
ţiunii MAT respective, nefiind necesară declararea lor în instrucțiunea DIM. 
În cazul în care matricile au fost declarate în prealabil, într-o instrucțiune DIM, 
sau au fost introduse printr-o instrucţiune MAT anterioară, ele pot fi redimensio- 
nate cu respectarea condiţiilor: 

— numărul de dimensiuni ale tabloului să fie păstrat (un vector nu poate 
deveni matrice și nici invers), 
— numărul de elemente al matricei redimensionate trebuie să nu depă- 
şească numărul de elemente al matricei inițiale. 
Dimensiunile specificate în instrucţiunile ma.riciale pot fi constante, 
variabile sau expresii. 
Exemplu : 
MAT READ A (M+N, N+1),B 


Citirea matricelor. Citirea matricelor se realizează cu instruețiunile a 
MAT READ și MAT INPUT. 


20 MAT READ B(2,3),A (3) 


30 DATA 5, 11, —17, 1,2, 3, 1E7,0,1 
După execuţia instrucţiunii 20 matricile A și B vor conţine : 
B (1, 1)=5; B(1,2)=11; B(1,3)=—17 
B (2, 1)=1; B(2,2)=2; B(2,3)=3 
A (1)=10'; A 2)=0; A(3)=1. 
Matricile A şi B puteau fi declarate şi în instrucțiunea DIM caz în care, 
în instrucţiunea 20, nu mai trebuiau specificate dimensiunile 


10 DIM A (3), B(2,3) 
20 MAT READ B, A 
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Aceleaşi observaţii sint valabile şi pentru instrucţiunea MAT INPUT. 
În acest caz, datele sînt citite de la consolă (tastatură) 


10 DIM A (10), B(3,3) 
20 MAT INPUT A (3), B(2,3) 


L 
p 


kMatricile A, B vor îi alocate la execuţia instrucţiunii DIM. Instrucţiunea 
MAT INPUT va redimensiona matricile A şi B şi apoi va citi de la consolă valo- 
rile elementelor (pe linii). 


Se observă că redimensionarea satisface cele două cerinţe : 


— păstrarea tipului (vector sau matrice), 
— noul număr de elemente este mai mic decit cel alocat iniţial. 


Observaţie : Instrucţiunea 10 DIM nu era absolut necesară, matricile puteau fi 
alocate în instrucţiunea MAT INPUT. 


Tipărirea matricelor. Pentru tipărirea matricelor se utilizează instrucțiunea 
MAT PRINI. Matricile se tipăresc linie cu linie. În cadrul unei linii, spaţicrea 
intre elemente se face coniorm separatorului utilizat în lista de matrici din MAT 
PRINT (separatori pot fi „,“ sau „;'). După tipărirea unei linii a matricei se 
iasă o linie liberă, pentru ca liniile să apară mai clar. Dacă lista din MAT PRINT 
conține mai multe matrici, între liniile unei matrici şi ale următoarei din listă, 
se lasă două linii libere. 


E10 DIM A (3,2) 

20 MAT READ A, B (3) 

30 MAT PRINT A, B 

40 DATA 1, 2, 3, 4, 5, 6/78, 9 
| 59 END, BE [E 


Instrucţiunea' MAT READ va citi tablourile A şi B. 
La execuţia instrucţiunii 30 se vor tipări următoarele valori la consolă 


(display) : 

2 

4 ; Matricea A (3, 2) 
6 


; Vectorul B (3) va fi tipărit ca 
; matrice coloană B (3,1) 


O OD =3 9 09 va 


Elementele matricei A pot fi tipărite comasat, dacă se [oloseşte separa- 
torul „;“. În acest caz, instrucţiunea 30 va fi: 


[20 MAT, PRINTEA ; B: 
FB va îi tipărit la fel ca mai sus. [E 
În cazul cînd în MAT PRINT, se specifică dimensiuni pentru un tablou 
din listă, tabloul va fi mai întîi redimensionat şi apoi tipărit cu noile dimensiuni. 
De exemplu, dacă instrucțiunea 30 de mai sus ar fi fost: 
30 MAT PRINT A (2, 2), B(2) 
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atunci s-ar îi tipărit: 


1 5 ; matricea A (2, 2) 
3 2 

7 ; vectorul B (2) 

8 


Observaţie : L-a redimensionarea unei matrice, trebuie avut în vedere faptul că 
elementele matricei sint memorate liniar, formind un vector din coloane puse 
cap la cap. Deci, elementele de pe aceeași poziţie, în matrice nu vor fi mereu 
aceleaşi după redimensionare. De exemplu, matricea : 


1 2 3 
5 6 
A (4, 3)= Ă Ă 


10 11 12 


redimensionată ca A (3, 3) va fi: 


1 16 8 
A (3, 3)= 4 2 1 
i 5 3 


Calculul inversei unei matrice. O matrice pătrată, nesingulară poate fi 
inversată. De remarcat că, o matrice poate îi inversată în ea însăşi, adică, matri- 
cea din membrul stîng al instrucţiunii poate fi aceeaşi cu cea din membrul drept. 


Exemplu : 10 MAT A=INV (A) este corectăs 

Dacă se doreşte și calculul determinantului matricei A (sau numai deter- 
minantul) se va folosi instrucţiunea : 10 MAT A=INV (A), VI. 

La execuţia instrucţiunii 10, variabilei VI i se va atribui valoarea deter- 
minantului matricei A. 


10 MAT READ A (2,2) 
20 MAT B=INV (A), D 
30 MAT C=A*B 

40 MAT PRINT A, B, C 
50 PRINT D 

60 DATA 1, 2,3, 4 

70 END 


Execuţia acestui program va determina tipărirea matricelor : 
GA | 1 2 | acd | —2 1 
oa 4 e L15 —95 


1 0 
[ C=A*B= Asai=| 9 1 | — matrice unitate 


Se va tipări și valoarea determinantului matricei A 


PP Dadet (A)=(1*4)—(2%3)=—2 
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Observaţie : Pentru calculul inversei unei matrice, se scrie transpusa matricei, 
se înlocuieşte fiecare element cu complementul sau algebric (minorul cu semnul 
corespunzător) împărțit la valoarea determinantului matricei. Inversa se poate 
calcula mai eficient prin alte metode. 

Transpusa unei matrice. Transpusa unei matrice A (M, N) va avea dimensiu= 
nile (N, M). Un vector fiind tratat ca matrice coloană, transpusa sa va fi o matrice 
linie. 

[10 MAT INPUT vV (19) 


20 MAT A=TRN (V) 
30 END 


Instrucţiunea 10 va citi de la consolă vectorul V, de 10 elemente. Instruc- 
ţiunea 20 va aloca matricea A (1, 10) și-i va atribui valorile elementelor vecto- 
rului V. Transpusa unei matrice linie este o matrice coloană. 

10 DIM V (10) 

20 MAT INPUT A (1, 10) 
30 MAT V=TRN (A) 

40 END 

În acest program transpusa matricei linie A va fi memorată în vectorul V. 
Observaţii : 

]. În instrucţiunile matriceale se poate lucra cu vectori atîta timp 
cît operaţiile efectuate nu necesită transformarea vectorilor (tablouri cu o 
dimensiune) în matrice (tablouri cu două dimensiuni). Acest lucru (permiterea 
utilizării vectorilor în instrucţiunile matriceale) este util în descrierea majori- 
tății problemelor în care se prelucrează matrici (ex. : sisteme de ecuații liniare 
— termenii liberi şi necunoscutele sînt notaţi ca vectori B (N), X (N) nu ca 
matrice B (N, 1), X (N, 1)) 

2. O matrice nu poate îi transpusă în ea însăși. Instrucţiunea : 


10 MAT A=TRN (A) este incorectă. 


Produsul a două matrice. Pentru a putea inmulți două matrice numărul 
de coloane al primei matrice trebuie să fie egal cu numărul de linii al celei de-a 
doua. 

Se consideră instrucţiunea : 


50 MAT A=B*C 


Dacă B are dimensiunile (P, N), iar C (N, Q), matricea A va avea dimen- 
siunile (P, Q). 

În cazul în care matricea A nu a fost în prealabil alocată, ea va fi alocată 
la execuția instrucţiunii 50, cu dimensiunile (P, Q). Dacă matricea A a fost alo- 
cată ea va căpăta dimensiunile (P, Q). 

Observaţie : Matricea rezultat nu poate figura ca matrice factor. Deci instruc- 
țiunile : 
106 MAT B=B*C 


sau 
160 MAT C=B*C 


sint incorecte. 
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Adunarea şi scăderea matricelor. Pentru a putea aduna sau scădea două 
matrice, ele trebuie să aibă aceleași dimensiuni. Aceleași dimensiuni vor fi atri- 
buite și matricei rezultat. 


Într-o instrucțiune nu se poate executa decît o singură operaţie. Instruc- 


fiunea : 
10 MAT A=B-+C—D.este greșită. 
Matricea din membrul stîng al atribuirii, poate figura și în membrul drept. 
E10 MAT A=A-+B,este, corectă; 
Înmulțirea unei matrice cu un sealan 
Şi 10 MAT A=(expresie)*B!] 
Matricea A va primi dimensiunile lui B şi va avea ca elemente, elementele 


matricei B, înmulțite cu valoarea expresiei, Expresia trebuie să fie inclusă între 
paranteze k 


Exemplu : 30,MAT A=(COS (RX)4SIN (x))*B 


DIR: 


Iuiţializarea unei matrice. Generarea unei matrice cu toate Siermentele 
sero se poate realiza cu instrucțiunea : ir 


i 50 MAT A=ZER (3,2) 


Dacă matricea A a fost alocată înainte de execuţia instrucţiunii 50 va primi 
dimensiunile (3, 2), dacă nu, va fi alocată cu aceleaşi dimensiuni. 


În cazul în care se urmăreşte iniţializarea matricei, fără alterarea dimen- 
aiunilor, nu se vor mai specifica dimensiunile, în instrucţiunea MAT 


sii 19 DIM A (5,5) 
50 MAT A=ZER 
Pentru tablouri cu o singură: dimensiune se poate utiliza : 
10 MAT V=ZER (10) 


Pentru a genera o matrice cu toate elementele 1, se pot folosi, de exemplu, 
instrucţiunile : 


60 MAT B=CON (3, 3) 
sau 
70 MAT B=CON 
Instrucţiunea 70 va fi utilizată în cazul în care B este alocat în prealabil. 
Pentru a genera o matrice unitate (cu unu pe diagonala principală și Zero 
în rest) se va folosi iuncţia IDN. Exemplu: 


10 MAT A=IDN (3,3) a 


Dacă! matricea nu este pătrată (sau nu se specifică dimensiuni egale în 
funcția IDN), prin diagonală principală se va înțelege, diagonala ce pleacă din 
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elementul cu poziţia (1, 1) şi merge diagonal pină la epuizarea numărului de 
linii sau det coloane. 
De exemplu : 


10 MAT A=IDN!(2,.3) 


7 | 1 V, îi 
mms / | 4) 


9.4.14. Instrucţiuni de prelucrare graiică. Soluţiile multor probleme con- 
stau din şiruri lungi de numere a căror interpretare este destul de dificilă. Repre- 
zentarea sub formă grafică a acestor şiruri de valori numerice facilitează aprecie- 
rea cantitativă şi calitativă a soluțiilor. 

Problemele în care se utilizează îacilităţile grafice impun reprezentarea 


grafică a unor valori numerice (tablouri, valori ale unor funcţii etc.) sau reali- 
zarea unor desene, hărţi etc. 


va penera : 


În primul caz utilizatorul este interesat de forma graficului şi de încadrarea 
lui pe ecranul dispozitivului de afişare. În cel de-al doilea caz, pentru utilizator 
va fi importantă specificarea explicită a scării de reprezentare, pentru a efectua, 
eventual, măsurători pe desene etc. 

Una din soluţiile de rcalizare a graficelor folosind limbajul BASIC poate 
consta în scrierea unor subrutine în limba] de asamblare, care utilizează un anu- 
mit display, şi utilizarea lor, în BASIC, cu ajutorul instrucţiunii CALL. Această 
soluţie este puţin flexibilă (nu este independentă de tipul perifericului grafic) 
şi destul de greoaie pentru un începător. 

De aceca au fost introduse instrucţiuni speciale pentru prelucrări grafice. 


Instrucţiunea MOVE. Formatul instrucţiunii : 


nr. linie MOVE X, Y 


unde: X, Y pot îi constante, variabile sau expresii. 

Instrucţiunea MOVE este folosită pentru a poziţiona spotul în punctul 
de coordonate (X, Y), De menţionat că instrucţiunea MOVE execută numai 
poziţionarea în punctul de coordonate (X, Y) nu marchează punctul respectiv. 

Instrucţiunea DRAW, Formatul instrucţiunii este: 

nr. linie DRAW X, Y 


unde: X, Y pot fi constante, variabilefsau expresii. 


Instrucţiunea DRAW este folosită pentru a trage o linie între punctul în 
care sc află spotul la întîlnirea instrucţiunii și punctul de coordonate X, Y spe- 
cificate în instrucţiune. 
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De exemplu dacă se dorește reprezentarea datelor conţinute în vecto- 
rul V (N) se poate folosi secvența 


199 MOVE 1, V (1) 
110 FOR J=1TO N 
129 DRAW J, V(J) 
139 NEXT J 


Instrucţiunea 100 execută o poziționare în punctul de coordonate (|, V (1)), 
apoi în ciclul FOR se unesc prin linii elementele vectorului V. Se observă că 
instrucțiunile MOVE și DRAW sînt suficiente pentru a face reprezentări grafice. 


Instrucţiunile WINDOW și VIEWPORT. Coordonatele X, Y specificate 
în instrucţiunile MOVE şi DRAW sînt exprimate în unitățile de măsură în care 
sînt exprimate mărimile de reprezentat (metri, kg, volți etc.). 

Acest sistem de coordonate defineşte „spaţiul utilizatorului“ sau spaţiul 
virtual. Spaţiul virtual este limitat practic de precizia aritmeticii maşinii (+ 10is). 
Acest „spaţiu utilizator“ va fi reprezentat la o anumită scară pe suprafaţa dis- 
play-ului. 

După cum s-a arătat la începutul paragrafului, în problemele de repre- 
zentare grafică a unor date, utilizatorul preferă să definească limitele spaţiului 
în care sînt cuprinse valorile de prezentat și să accepte scara şi originea implicit 
determinate, fără a mai specifica o scară de reprezentare şi o origine. 

Instrucţiunea prin care utilizatorul specifică limitele „spaţiului utilizator” 
în care sînt cuprinse datele de reprezentat este : 


nr. linie WINDOW A, B,C,D 


unde: A, B, C, D sînt variabile, constante sau expresii care reprezintă limitele 
spațiului utilizator, în ordinea : 


| 


A = limita stingă C limita inferioară 
B — limita dreaptă D = limita superioară 


Cele patru limite definesc un spațiu dreptunghiular. Orice punct de coor- 
donate (X, Y) pentru care: 


ASXSB 
CSYSD 


va fi reprezentat grafic. Punctele care cad în afara dreptunghiului nu vor avea 
imagine pe suprafața display-ului. Din linia trasă cu instrucțiunile : 

19 MOVE XI, Yi 

29 DRAW X2, Y2 
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va fi reprezentată numai porțiunea interioară dreptunghiului (ferestrei), definite 
mai sus, de limitele A, B,C,D. 

Observaţie : De remarcat că poate fi luat implicit spaţiul utilizator maxim posi- 
bil ((mpus de aritmetică) 


10 WINDOW —104 18, 190418, —10118, 10418 


În acest caz toate valorile nuinerice cu care se poate lucra într-un program 
sint reprezentate grafic. Dezavantajul constă în aceea că scara implicată este 
extrem de mare, şi un domeniu de valori destul de mare (2 10%) se va reprezenta 
printr-un singur punct (pe un display cu latura de 1000 puncte). __ 


b > 5 Laturile ferestrei (dreptunghiului) declarate în instrucţiunea ea WINDOW 
trebuie să fie cît mai apropiate de domeniul de valori de reprezentat, pentru ca 
graficul obținut să fie cit mai fin. 


Pină acum s-a considerat că spaţiul utilizator, definit prin instrucţiunea 
WINDOW, va fi reprezentat pe toată suprafaţa display-ului. În unele aplicații 
se va dori scrierea unor comentarii alături de grafic sau realizarea mai'multor 
grafice pe aceeaşi suprafaţă. 

Pentru a descrie porţiunea din suprafață display-ului pe care va fi realizat 
graficul (va fi proiectat spaţiul utilizator) se foloseşte instrucţiunea : 

nr. linie VIEWPORT A, B, C, D] ZI 


unde: A, B, C, D sint variabile, constante sau expresii și reprezintă limitele 
zonei din suprafaţa display-ului, în aceeași ordine ca pentru WINDOW : stingă, 
dreaptă, inferioară, superioară. 

w: Spre deosebire de WINDOW unităţile în care se exprimă limitele A, B, C, D 
sint unități fizice. 

Alegerea unităţii fizice în care să se exprime limitele A, B, C, D trebuie să 
satisiacă cerinţele de independenţă faţă de tipul perifericului grafic, (unele 
display-uri au suprafaţa pătrată, altele dreptunghiulare etc.). Independenţa 
de tipul perifericului, asigură ca un program scris pentru un anumit display să se 
poată folosi şi pentru alte tipuri de echipamente de afișare. 

Unitatea în care se exprimă limitele A, B, C, D s-a ales ca fiind un procent 
din latura pătratului crl mai mare, care poate îi înscris în suprafaţa display-ului. 
Aceasta se va numi unitate grafică (UG). Originea suprafeței display-ului se con- 


sideră În colțul din stînga jos. În aceste condiţii instrucțiunea : II 
II Copa — -. Pe Sc] 
10 VIEWPORT 9, 19, 0, 100 i: uri " dia a = 


va va specifica dimensiunile celui mai mare pătrat înscris în suprafaţa display-ului 
(dacă “suprafața display-ului este pătrată, va reprezenta întreaga suprafață). 
Această instrucțiune este executată implicit de sistem. 
De asemenea implicit este executată şi instrucțiunea : 


WINDOW 6, 100, 0, 100 


LO 


Aceste două instrucțiuni realizează o corespondență unu la unu între 
anitățile utilizator:(pe orizontală şi pe verticală) şi unitatea grafică (UG). 
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Cu aceste iniţializări implicite un cerc va apărea nedistorsionat, deoareceş 
pe ambele axe de coordonate se folosesc aceleaşi unităţi de măsură, iar suprafaţa 
Ca e Și SN SI 
graficului este pătrată (ace eași scară, pe ambele axe). 

Programul următor va trasa; un cerc: pe orice display : 


[100 MOVE 85, 50 120 NEXT JĂ 
110 FOR J=0T0O 2*PI STEP PI/10 140 END 


120 DRAW 35*COS (J)+50, 35*SIN (J)+50, 


Cercul vajavea centrul în punctul de coordonate (50, 50), iar raza va fi 35, 


Se observă că, în program, nu a fost necesară utilizarea instrucţiunilor 
WINDOW sau VIEWPORT. Nu este necesară cunoașterea particularităţilor 
display-ului. Este suficient să se ştie că orice display are o suprafaţă de cel puţin 
100/100 unităţi (UG). Evident, pentru reprezentări de date care nu variază 
între 0 şi 100 se impune utilizarea instrucţiunii WINDOW (altiel se reprezintă 
doar porţiunca din grafic cuprinsă în fereastra 0, 100, 0, 100). Dacă sc va dori 
ca reprezentarea graficului să se facă numai pe o porţiune din supraiaţa display- 
ului, va trebui utilizată instrucţiunea VIEWPORT. De pildă, pentru colțul din 
dreapia sus se va îolosi instrucţiunea :, 

10 VIEWPORT;75,:100, 70, 100 | 


Instrucţiunile prezentate mai sus: MOVE, DRAW, WINDOW, VIEW- 
PORT formează setul minim de instrucţiuni £rafice, cu ajutorul cărora sc poate 
rezolva orice problemă de reprezentare grafică. Sînt prevăzute, de asemenea, 
instrucțiuni care înlesnesc utilizarea subrutinelor pentru realizarea graficeloi'; 
manipularea figurilor (rotații, translaţii) și instrucțiuni care realizează indepen- 
dența programelor faţă de tipul perilericului, grafic. 

Instrucţiunile RMOVE şi RDRAW.£ Formatul instrucțiunilor : 
| [nr. linie RMOVE X, Yi 
i [nr. linie RDRAW X, Y Pui 
unde: X, Y pot îi constante, variabile sau expresii. 


Instrucţiunile RMOVE şi RDRAW se deosebesc de MOVE şi DRAW prin 
faptul că coordonatele X, Y nu Sint raportate la originea sistemului, ci lu poziția 
spotului: (punctului grafic), la momentul execuţiei instrucţiunii. Aceste instruc- 
țiuni sînt utile în scrierea subrutinelor care generează; diverse figuri. Figurile 
respective vor putea fi desenate șn orice loc, pe suprafața display-ului, prin uti- 
liz area instrucţiunii MOVE, înainte de apelul rutinei care generează, figura. 
Astiel, se realizează translaţiakfigurilor. iz 

"nstrucțiunea SCALE. În unele aplicaţii, realizarea de hărţi, diagrame, 
desene etc., este utilă indicarea explicită a scării de reprezentare dorite. 

Formatul instrucţiunii folosite în acest caz este : 

nr. linie SCALE 51, S2 
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unde : Si, S2/sint constante, variabile sau expresii care reprezintă factorii de 
scară pe orizontală și pe verticală. Factorul de scară indică numărul unităților 
utilizator reprezentate pe o unitate grafică 


SE unităţi utilizator 
' unităţi grafice (UG) * 


Observaţie : În cazul în care se doreşte efectuarea de măsurători pe grafic, utili- 
zatorul va trebui să ştie ciți milimetri (de exemplu) reprezintă o unitate grafică 
(UG) pentru perifericul respectiv (se reaminteşte că 1UG reprezintă a suta parte 
din latura pătratului maxim inscriptibil în suprafaţa display-ului). 

Originea sistemului de coordonate se consideră în punctul în care se află 
spotul (punctul grafic) la execuția instrucţiunii SCALE. Pentru aceasta se va 
folosi, eventual, instrucţiunea MOVE înaintea instrucţiunii SCALE. Punctul 
specificat ca origine va fi reprezentat pe grafic în colţul din stinga jos. 

Se poate remarca faptul că instrucţiunea WINDOW este echivalentă cu 
SCALE, avînd în plus specificarea originci. Coordonatele originii vor lua locul 
parametrilor A, C din instrucţiunea WINDOW, iar factorii de scară vor deter- 
mina limitele B şi D din WINDOW. 


Instrucţiunea ROTATE. Formatul instrucţiunii ROTATE este următorul : 
nr. linie ROTATE U 


unde : U este o constantă, variabilă sau expresie. 

Instrucţiunea ROTATE are efect numai asupra instrucţiunilor RMOVE 
și RDRAW, realizînd rotația cu unshiul U a vectorilor generați cu RDRAW 
sau a poziționării realizate cu RMOVE. 

Dacă instrucțiunea ROTATE este utilizată înainte de apelul unei rutine 
care generează o licură cu ajutorul instrucțiunilor RMOVE și RDRAW, figura 
generată va apărea rotilă cu unghiul specilicat (în radiani). Rotaţia figurii res- 
pective va fi realizată faţă de punctul în care s-a început generarea figurii, punc- 
tul unde se află spotul la începutul secvenței de program (rutinei) ce desenează 
figura. Instrucţiunile MOVE şi DRAW nu sînt afectate de ROTATE, deoarece 
coordonatele absolute, specificate în aceste instrucțiuni trebuie să rămînă neal- 
terate, pentru a se putea executa poziționări în punctele dorite înainte de gene- 
rarea unor figuri cu RMOVE și RDRAW. Astfel, se permite utilizarea simul- 
tană şi independentă a translaţiei și rotației figurilor. 

Exemplu : Următorul program va trasa un pătrat cu latura de 10 unităţi (Se 
consideră inițializările implicite deci nu se vor folosi WINDOW şi VIEWPORT) 


99 MOVE 0, 9 120 RDRAW —10, 0 
100 RDRAW 10, 9 130 RDRAW 0, —10 
110 RDRAW 0, 10 140 END 


Pătratul va îi trasat începînd din origine. Instrucţiunea 90 poziţionează 
spotul în originea spațiului utilizator care pentru inițializările implicite, coincide 
cu originea suprafeţei crafice (colţul din stînga jos). 

Pătratul poate fi” micşorat, mărit sau transformat în dreptunchi cu ajuto- 
rul instrucţiunii SCALE SI, S2. Dacă S1=S2z1 pătratul va fi micşorat sau 
mărit, dar laturile vor rămîne egale între ele. Pentru S$S1=S2=1 pătratul va fi 
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trasat neschimbat față de cel din exemplul de mai sus. În cazul în care SIzS2 
laturile trasate pe display nu vor mai fi egale, iar pătratul va fi reprezentat ca 
dreptunghi. 

Următorul program va desena pătratul de două ori mai mare decit cel 
trasat de programul precedent. 


10 MOVE 9, 0 110 RDRAW 0, 10 
20 SCALE 1/2, 1/2 120 RDRAW —19, 0 
30 GOSUB 109 130 RDRAW 0, —10 
40 STOP 140 RETURN 

100 RDRAW 19, 0 150 END 


Se observă că secvenţa de program care desena pătratul a fost scrisă ca 
subrutină. Dacă se doreşte ca pătratul să fie desenat în alt loc pe suprafaţa 
display-ului se va schimba instrucţiunea 10. De exemplu, punînd: 


“| 10 MOVE 59, 59 


pătratul va fi trasat (în sens trigonometric) începînd din punctul de 
coordonate (50, 50). 


Observaţie : Latura pătratului va avea tot 10) unităţi utilizator (s-a folosit aceeaşi 
secvenţă de instrucțiuni pentru generarea pătratului), însă datorită indicării 
scării de 1/2, dimensiunea laturii pătratului desenat va fi 20 unităţi grafice (UG), 
deci dublă faţă de latura pătratului trasat de programul precedent. 


Pătratul generat de subrutina care începe cu instrucțiunea 100 poate fi 
trasat începînd din punctul de coordonate (50, 50) şi rotit cu unghiul PI/4 cu 
ajutorul programului : 


10 MOVE 59, 56 30 GOSUB 109 
20 ROTATE PI/4 40 STOP 


În cazul in care se dorește ca pătratul să fie micșorat şi rotit, în sens invers 
trigonometric, se va putea folosi programul : 
10 MOVE 20, 30 40 GOSUB 109 
20 SCALE 2, 2 50 STOP 
30 ROTATE —PI/3 


Pătratul va fi trasat începînd din punctul de coordonate (20, 30), micşorat 
la jumătate (latura de 5UG) şi rotit în sens orar cu unghiul PI/3. 


La instrucţiunea 100 începe aceeași subrutină de generare a pătratului 
ca şi în programele precedente. 


Instrucţiunea INIT. Formatul instrucţiunii este următorul : 
m nr. linie INIT [P) 


Execuția instrucţiunii INIT constă în ştergerea ecranului display-ului 
şi efectuarea iniţializărilor grafice implicite, anume : 


WINDOW 0. 100, 0. 100 
şi 
VIEWPORT 0, 100, 0, 100 
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Deci instrucţiunile grafice SCALE, WINDOW, VIEWPORT și ROTATE 
executate înainte de INIT își pierd valabilitatea. 
Dacă parametrul P este prezent, atunci display-ul trece în mod pagină, 
altfel rămîne în mod defilare. 
Instrucţiunea GSINPUT. Formatul instrucţiunii GSINPUT este următorul:. 
nr. linie GSINPUT VI, V2 


unde: Vl, V2 sint variabile. 

Instrucţiunea GSINPUT este utilizată pentru a realiza independenţa; 
totală faţă de tipul perifericului grafic. Execuţia instrucţiunii constă în atribui- 
rea variabilelor VI, V2 a dimensiunilor exprimate în unități grafice (UG) ale 
suprafeţei display-ului. De exemplu, un display poate avea suprafața dreptun- 
ghiulară cu latura orizontală mai mare sau cu cea verticală mai mare (fig. 9.3 a, b). 


_ 


130 UG 


Îi e cata 


100 UG 


Fig. 9.3. Stabilirea unităţilor grafice pe suprafața ecra- 
nului de afişare: a) VI=130UG; V2=100UG; b) Vl= 
=100 UG ; V2=150UG. 


Executiînd instrucțiunea GSINPUT VI, V2 pentru display-ul din fi-- 
gura 9.3. a, variabilele VI, V2 vor primi valorile V1=—130, V2=—100, iar pentru 
display-ul din figura 9.3 b, V1=100, V2=1590. 

Utilizînd variabilele V1, V2 în instrucțiunea VIEWPORT se vor obţine: 
programe care utilizează înti saga suprafaţă a display-ului, indiferent de forma ei: 

100 GSINPUT A, B 
110 VIEWPORT 0, A, 0, B 
Instrucţiunile PLOT şi UNPLOT. Instrucţiunile PLOT şi UNPLOT impre- 


ună cu caracterele speciale (semigrafice), utilizabile în instrucţiunea PRINT,. 
oferă facilităţi semigrafice limbajului BASIC. Formatul instrucţiunilor este:.: 


nr. linie PLOT X, Y 


şi 
nr. linie UNPLOT X, Y 


uned : X, Y pot fi constante, variabile sau expresii. 
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Execuţia instrucţiunilor constă în a aprinde sau stinge pătrăţelul de coor- 
donate X, Y de pe suprafaţa display-ului. Suprafaţa display-ului este formată 
din 64 X 64 pătrăţele, un pătrăţel conținînd 4X4=16 puncte grafice. Originea 
suprafeţei, (pătrăţelul de coordonate 0, 0) se consideră în colțul din stinga, jos 
al suprafeţei display-ului. Prin urmare, valorile expresiilor X și Y vor fi cuprinse 
între 0 și 63. Următorul program, trasează două linii, una orizontală, cealaltă 
verticală, care se intersectează în mijlocul ecranului 


10 INIT 40 PLOT I, 32 
20 FOR I=0 TO 63 50 NEXT I 
30 PLOT 32, 1 60 END 


9.5. Mesajele de eroare ale interpretorului BASIC 


În timpul introducerii programului, instrucţiunile (liniile ce încep cu un 
număr) nu sînt analizate sintactic, ci sint depuse în memorie, În ordinea numere- 
lor de linie. O linie care nu începe cu un număr va [i interpretată de sistem 
drept o comandă. Dacă ea nu reprezintă o comandă validă (de exemplu este o 
instrucțiune fără număr de linie) sistemul va tipări mesajul : WHAT ?, indicîna 
faptul că ultima linie introdusă este incorectă. Linia va trebui să fie reintrodusă 
corect. 


Erorile depistate în timpul execuției programului sînt tipărite la consolă 
sub forma : 


ERROR XX IN LINE YYYY 


unde : 
— XĂ reprezintă codul erorii 
— YYYY reprezintă numărul liniei în care a fost depistată eroarea 


Semnificațiile codurilor de eroare (4X) posibile, sînt date în continuure > 


Codul erorii Semnificație 
1 — programul nu se termină cu instrucţiunile END sau STOP 
2 — tip de instrucţiunea nerecunoscut (cuvint cheie incorect) 
3 — există instrucțiuni sursă după instrucţiunea END 
4 — numărul liniei destinaţie este incorect (în instrucţiunile IF, GOTO, GOSUB, 
ON) 
5 — numărul liniei destinaţie este inexistent (în instrucţiunile II, GOTO, 
GOSUB, ON) 
6 — caracter ilegal 
7 — instrucțiune neterminată 
8 — expresie incorectă 
9 — eroare la conversia în virgulă mobilă 
19 — utilizare incorectă a funcţiilor GET sau PUT 
11 — tentativă de redimensionare (prin DIM) a unui tablou 
12 — tablou utilizat înainte de a fi definit (stocat) 
13 — argumentul funcţiilor SIN, COS sau TAN prea mare (> 10%) 
14 — relaţie incorectă în instrucţiunea IF 


15 — depăşirea stivelor în evaluator — expresie prea coinplicată 
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10 — eroare în ridicarea la putere (0 la puterea sau număr negativ la putere 
reală) 
17 — instrucţiune FOR utilizată fără instrucțiunea NEXT corespunzăteare 


(buclă FOR neinchisă) 


18 — instrucțiune NEXT utilizată fără instrucţiunea FOR corespunzătoare 

19 — depăşire stivă FOR (peste 3 cicluri cuprinse unul într-altul) 

20 — indice mai mare de 254 sau egal cu O 

21 — se doreşte citirea mai multor constante decit au fost definite în instrucțiu= 
nile DATA 

29 — depăşirea valorilor declarate ale indicilor 

23 — radical din număr negativ 

24 — logaritm din număr negativ 

25 — dimensiuni necompatibile petru produs de matrici 

20 — matricea din membrul sting al egalităţii nu poate apărea în menebruf 
drept (pentru transpusă sau produs de matrici) 

27 — matrice singulară — nu poate [i inversată 

28 — redimensionare incorectă — noile dimensiuni depășesc pe cele maxtrae 

29 — prin redimensionare nu poate îi schimbat numărul de dimensiuni al umwf 
tablou 

30 — matricea nu este patrată — nu poate fi inversată 

31 — matricile nu au aceleași dimensiuni (pentru sumă sau diferenţă) 

32 — subrutina în limbaj de asamblare cu numărul dorit nu a fost găsită în taheia 
de subrutine 

3? — parametrii incorecţi în instrucțiune de prelucrare grafică (VIEWPORŢ, 


WINDOW sau SCALI:) 


-.. way 


Fie în faza de introducere a programului, îie în timpul execuției sale poate 
apărea la consolă mesajul MEMORY FULI-, indicînd faptul că nu mai există 
memorie disponibilă, de alocat pentru variabile sau de stocat noi linii de pro- 
gram. În acest moment se poate introduce o singură cifră (de la consolă) cara 
va indica acţiunea care va avea loc în continuare. 


Număr intredus Semnificație 

L RUN — execută programul din memorie 

1 SAVE  — copiază programul din memorie pe casetă 
2 LIST  — listează programul din memorie 

SCR — şterge programul din memorie 
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Capitolul 10. Microcalculatorul aMIC în matematicile 
elementare şi statistică 


Dar, mai intii, o vedere de ansamblu a programării „personale“ pe aMIC, 

Utilizarea echipamentelor de calcul într-o serie de activități economico- 
sociale a fost mult timp frinată de regimul de lucru speciiic puterii de calcul 
centralizate : prelucrarea lucrărilor pe loturi. Timpul de răspuns, adică durata 
între momentul predării spre execuţie a unei lucrări și momentul primirii rezul- 
tatului prelucrării, poate fi de ordinul orelor sau chiar zilelor, funcţie de o serie 
de factori specifici exploatării pe loturi la centrele de calcul. Valoarea mare a 
timpului de răspuns implică două inconveniente majore : 

a) apariţia de discontinuități mari în activitatea de elaborare, testare şi 
depanare a programelor, avînd ca rezultat o eficirnţă scăzută a activităţii de 
programare. 

b) imposibilitatea utilizării puterii de calcul în activităţi care solicită o 
colaborare permanentă om-calculator pe durata execuției programelor. 
"Regimul de lucru cu acces direct al utilizatorilor la echipamentul de calcul, 
fie că este vorba de acces local sau de la distanţă, rezolvă în cea mai mare parte 
inconvenientele de mai sus, însă această rezolvare nu este în beneficiul unui 
număr mare de utilizatori. Principalul obstacol în răspîndirea acestui mod de 
lucru îl constituie costul ridicat al unui sistem de calcul interactiv și numărul 
limitat de terminale ce pot fi gestionate simultan în cadrul urui asemenea sistem. 


Apariţia microcalculatoarelor, considerate ca fiind sisteme total inter- 
active, permite diseminarea puterii de calcul pentru orice tip de aplicaţii, prin 
avantajele specifice pe care le posedă : preţ de cost scăzut, programare în limbaje 
conversaţionale de nivel înalt, posibilitatea conectării prin linii de teletransmisie 
la sisteme de calcul de capacitate medie-mare, interfaţă simplă cu operatorul 
uman etc. 

Microcalculatorul personal aMIC pune la dispoziţia utilizatorilor săi o 
serie de facilităţi destinate implementării cît mai simple a puterii de calcul 
într-un domeniu vast de aplicaţii. 

Inrerfaţa cu operatoru: este concepută pe două niveluri : nivelul monitor 
și nivelul BASIC. Ambele au făcut obiectul unei tratări detaliate în capitolele 
precedente. Reliefăm doar faptul că această ierarhizare, neobișnuită la micro- 
calculatoarele personale, permite dezvoltarea de aplicaţii în două direcţii: 
cea a domeniilor specializate, necesitind elaborarea de programe în limbaj de 
asamblare, și cea a domeniilor de larg interes, scrierea aplicațiilor făcîndu-se în 
limbajul BASIC-aMIC, al căror obiect îl constituie prezentul capitol. 


Rezolvarea ecuaţiei de gradul Il 99 


RD n e ari a a 


Limbajul BASIC implementat pe microcalculatorul aMIC este simplu 
și uşor de învăţat, fiind accesibil unei categorii largi de utilizatori, chiar nespe- 
cialişti în informatică. Crearea, modificarea şi testarea programelor se desfăşoară 
rapid, datorită modului de lucru conversaţional al interpretorului BASIC; 
numărul de erori posibile semnalate la execuția programelor este relativ redus, 
depanarea programelor neridicînd astfel probleme deosebite. Corectarea liniilor 
de program eronate se poate executa imediat, programul fiind disponibil pentru 
o nouă rulare, ciclul modificare-testare fiind foarte scurt. Acest mod de lucru, 
gen „Încearcă să vezi ce se întimplă“ nu este cel mai indicat, dar prezintă nete 
avantaje pentru nespecialiști, eliminind o bună parte din bariera psihologică 
ridicată de utilizarea unui IBAN Cl nou de lucru în cadrul activităţii clasice 
a acestora. fi sii! pa SP. 
£ ? Domeniile de utilizare includ cu preponderență calcule matematice com- 
plexe, prelucrării de tip gestiune economică cu un volum mic-mediu de date, apli- 
caţii tehnico-știinţifice, învăţămînt, aplicaţii grafice etc. Toate exemplele date 
în continuare au mai mult un caracter demonstrativ, didactic, încerc îndu-se 
acoperirea unui număr cît mai mare de domenii diferite. e a, F, î. pa 
"Pe, măsură ce programarea în BASIC este însuşită, utilizatorul îşi poate 
defini propriile sale aplicaţii plecînd de la exemplele demonstrative ; partea cea 
mai dificilă o constituie abordarea algoritmică a aplicaţiei ce se doreşte a fi 
transpusă pe aMIC. Scopul acestui capitol este şi acela de a demonstra că un nu- 
măr surprinzător de activități pot fi abordate prin prisma transpunerii lor pe 
microcalculator, şi că aceasta este practic la îndemîna tuturor. 


10.1. Rezolvarea ecuaţiei de gradul II : 


AX2+BX+C=0, unde A,B, C sînt numere reale. RE (X), IM (X) sînt 
partea reală și partea imaginară ale rădăcinilor complexe conjugate. 


Programul se bazează pe organigrama dată.în figura 10.1 


10  PRINT"AXxX+BX+C=0o REZOLVAREA ECUATIEI 

15  PRINT"INTRODUGETI COERICIENTIL:* AXxX+BX+C=0 

25 INPUT A,B,C CU A,B,C NUMERE REALE 

30 IF A<XO THEN 45 INTRODUCETI COEFICIENTILIr 

33  PRINT"ECUATIA NU ESTE DE GR.2* 3 4 45.6 
40 69 T0 95 ECUATIA ARE RADACINI COMPLBXE 

45  H=B*B-4mAxc PARTEA REALA „666667 

SO  IFH>=0 THEN 80 PARTEA IHAGINARA -3.8413 


Ș3  PRINT"ECUATIA ARE RADACINI COMPLEXE» 
60  PRINT*PARTEA REALA",B/A/2 

70  PRINT*PARTEA IMAGINARA*, -SQR(-H)/A/2 
72 60 TO 93 

80  PRINT"RADACINI REALE” 

63  2e<SaR(M) 


86  Ua2xaA 
90 PRINT(-B+2)/u, (-B8-2)/u 
93 END 
REZOLVAREA ECUATIEI 
AX*X+8X+C=0 
În gArEA acUATIBI CU A,B,C NUMERE REALB 
CU A,B,C NUHBRE REALB INTRODUCETI CORFICIENTȚIIL: ia 
R NTII: 12 13.12 - 
"DT Roaveast COE 1618 FR RADEI taia 


2 
ECUATIA NU ESTE DB GR.2 1. 46531 -2.33884 
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GABeU / 


A =Bi- BAC. 


(RE(X) . IM(X)) *-CU AȚIA NU 
"RĂDĂCINI COMPLEXE" STE. DE: GRADUL 


(_stoe__) 


Fig. 10.1. Organigrama rezolvării ecuaţiei de gradul II. 


ba] PRINT*EA ga Atel A 

10  PRINT*AXuX+BX+C < 

15  PRINT-INTRODUCETI edi Ni 
20 INPUT A,B,C 

29 IF A=0 THEN S5 

30  MaBnB-âmanc 

35 IF H>=0 THEN 70 

40  PRINŢ-ECUATIA NU ARE* 

45  PRINT*SOLUTIE IN R* 

SO 60 TO 170 

55  PRINT"INECUATIA NU ESTE: 
60  PRINT-"DE GRADUL 2* 

65 69 TO 170 


10.2. Rezolvarea inecuaţiei 70 vasaRet) 


80  Ta(-B+V)/y 


AX2+ BX + C<Y. 50 IF TV IHEN 110 


95 vav 


100 Var 
Programul se bazează pe 110 Gosua 140 
organigrama din figura 10.2. Daca araba 


199 60 TO 170 

160 PRINT T,-c X <*,vV 
163 RETURN 

179 END 


SA Sk REZOLVE 
AX+X+BXeC ce 
IMTRODUCETI COEFICIENTIL: 
2.2 4.1] 78.9 
FC'IaTIA ARE 
SO.UTIE IN R 
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NU "INECUATIA NU ESTE N 
A Bia AC DE GRADUL 2" 


(_X1, +00) 


Fig. 10.2. Organigrama rezolvării inecuaţiei 
AX:+BX+C <0. 


10.3. Rezolvarea unui sistem (Cramer) de 5 ecuaţii 
cu 5 necunoscute 


Programul rezolvă un sistem de forma: 
C-X=D 
unde : 
C este matrice de 5x5 elemente 
XA este vector coloană de 5 elemente 
D este vector coloană de 5 elemente. 


Elementele matricilor C şi D nu sînt solicitate prin dialog, ele sînt pre- 


lixate în program la liniile 160, 170 şi 180. Dacă se doresc alte valori, se vor 
modifica acesle linii. 
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Rezultatul se afişează sub forma unui vector cu 5 elemente. 


10 
20 
30 
40 
bs 19) 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


10.4. Afişarea unui 


PRINT * REZOLVAREA UNUI SISTEM DE ECUATII * 
DIM C(S,5),D(S),E(S,S),F(S),G(S),xrs) 
MAT READ C,D 

PRINT " MATRICEA COEFICIENTILOR * 

MAT PRINT C 

PRINT * TERMENII LIBERI * 

MAT PRINT D 

MAT EaINV(C) 

MAT XsEuD 

PRINT * VECTORUL GOLUTIE * 

MAT PRINT X 

MAT FsCux 

MAT GeD-F 

PRINT * VECTORUL EROARE * 

MAT PRINT G 

DATA 11,3,0,1,2,0,4,2,0,1,3,2,7,1,0 
DATA 4,0,4,10,1,2,3,1,3,13 

DATA $1,18,15,20,92 

STOP 

END 


șir finit de numere prime 


Programul generează şi afişează cîte un număr prim, pornind de la mul- 
ţimea numerelor prime determinate anterior. Mulțimea de pornire este 2,3. 


Programul se bazează pe următoarele ipoteze : 
1) orice număr prim este un număr impar 
2) avînd mulțimea primelor n numere prime, 


(P, Pa, ..., Pa) numărul K, K pn, va fi număr prim dacă nu este 
divizibil cu numerele prime Pi < K. 


Întrucît prin BASIC se poate rezerva un masiv cu dimensiunea maximă 
de 254, se pot reţine maximum 254 numere prime. Din acest motiv afișarea 


se opreşte la tipărirea 


numărului prim K =—Pasz, adică la 16132==2.601.769. 


PRINT * LISTARE NUMERE PRIME «* 
DIM P(238) 

P(1):2 

P(2)>3 

PRINT Pit) 

PRINT P(2) 

k=3 

1=3 

J=2 


100 IF P(J)*2 > K THEN 180 
110 IF INT(K/P(J))=R/P(J) THEN 160 
120 J=eJ+1 

130 IF Jc=2S4 THEN 100 

140 STOP 

150 REM * M NU ESTE PRIA e 
160 K=Ke2 

170 G0T0 90 

180 REM * K ESTE PRln * 
190 IRA 1)258 THEN 210 

200 P(1)eK 

210 PRINT KM 

220 R-M+2 

2890 1-let 

240 8070 90 

250 END 
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10.5. Verificarea dacă un număr dat este sau nu prim 


Programul solicită prin dialog introducerea numărului de verificat. În 
baza ipotezelor de la programul anterior se verifică dacă numărul este prim sau 
nu și se afişează rezultatul (fig. 10.3). 


pa Numărul se compară cu mulţimea numerelor prime P, < INT (/X)+ 1. 
Din același motiv ca la programul anterior (masiv cu mărime maximă 254) 
numărul dat la verificare trebuie să fie: 


X < 2601 .769 


10 PRINT " VERIFICEREA DACA UN NUMAR 8 PRIN * 
20 PRINT * DATI NUMARUL «* 

30 INPUT X 

40  I1F X<O THEN 60 

50 IF INr(X)-X=0 THEN 80 

60 PRINT * NUMAR NEGATIV SAU RBAL * 

70  GO0T0 30 

80 DIM P(254) 

20 P(1)=2 

100 P(2)-3 

110 M=INT(SOR(ĂX))el 

120 K=5 

130 123 

140 REM * COMPARARE CU NUMERELE PRIME «* 
150 J=2 

160 IF P(J)"2>K THEN 230 

170 1F INT(K/P(J))=K/P(J) THEN 190 

180 J=Jel 

190 k=kK+2 

200 IF K<X THEN 150 

210 PRINT X;* NO E PRIH * 

220 STOP 

230 P(L)=K 

240 [IF X=K THEN 280 

250 KkeK+2 

260 Iziel 

270 GO0T0 150 

280 PRINT X;*" ESTE PRIN * 

290 STOP 

FND 


Yig. 10.3. Organigrama verificării dacă un număz este sau nu prim. 


INPUT N 


Fig. 10.4. Organigrama des- 


M=INT(SQR(N)eT) compunerii unui număr în 
factori primi. 


da 


CEIA > . INT(A/P(J)) = A/PU) 
“ei 


J=J.1 


A=A+2 


PRINT DU)tG(D) 


Descompunerea unui număr în factori primi 105: 


10.6. Descompunerea unui număr în factori primi 


Programul solicită prin dialog numărul de descompus în factori primi. 
Se aplică ipotezele de la 10.4 şi 10.5 pen ru a obţine şirul de numere prime: 


pînă la «N, N fiind numărul dat. Se contorizează apoi de cite ori se cuprinde: 
fiecare număr prim în numărul dat. 


Considerind descompunerea de forma : 
N =qkl ek? -qkm 


se afișează : 


91 4 kA 9 PRINT * DESCOMPUNEREA Ik FACTORI PRIHI * 
10 DIM P(254),D(20),6t20» : 
15 PRINT * DATI NUMARUL * 
Q3 ) ka 20 INPUT N 
25 MaINT(SOR(ND))o+) 
Ş 30 P(1)22 
35 P(2)23 
ă 37  U=3 
- 40 A3 
45 FOR luv To 
50 J=2 
(m 4 Ko S3 1F P(J)"2>A THEN 90 
60  1F INT(A/PL(J)dsA/P(J) THEN 80 
65 JaJeti 
70 1F J<254 THEN 53 
75 STOP 
80  A=A+2 


85 GOTo So 

90 IP 17234 THEN 100 

93 P(L)zA 

100 A=A*2 

105 NEXTI 

110 REM * DESCOMPUNEREA «* 
115 K=i 

120 J=1 

123 1=0 

130 B=P(K) 

135 C=N/8 

140 IF (INT(C)-CY=0 THEN 180 
145 IF 120 THEN 165 

150 G(JD)=i 

155 J=J+i 

160 1=0 

165 K=Kel 

170 B=P(K) 

175 GOTO 135 

180 IF I<>0 THEN 190 

185 D(J)=8 

190 Lal+l 

195 N=C 

200 IF CC>1 THEN 133 

205 G(J)=1 

210 REH * TIPARIREA « 

215 FOR lait 10 J 

220 PRINT D(1);***;G(1) 
225 PRINT 

230 NEXT 1 

235 PRINT * CONTINUATI (DAal) * 
240 INPUT D 

245 1F D=1 THEN 255 

250 STOP 

255 PRINT * DATI NUMARUL * 
260 INPUT U 

265 IF U<N THEN 115 

270 N=U 

275 U=M 

280 M=INT(SQR(N))e1 
285 REM * Aa ULTIM NUMAR VERIFICAT * 
290 GOTO 45 

200 END 
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10.7. Determinarea celui mai mare divizor comun 


Programul solicită prin dialog cele două numere întregi și afişează cel 
mai mare divizor comun al lor. 


5 PRINT * CEL MAI MARE DIVIZOR COMUN * 
10 PRINT * DATI CELE DOUA NUMERE * 
15 INPUT A,8 

20 IF A=B THEN SO 

25 IF A>B THEN 40Q 

30 B=B-A 

35 GOTO 20 

40  AzA-B 

45  GOT0 20 

30 PRINT A 

SS GOTO 10 

60 END 


10.8. Simplificarea unei fracţii 


Programul solicită prin dialog numărătorul și monitorul fracţiei. Se afi- 
şcază un vector cu toate valorile cu care se poate simplifica fracţia, inclusiv 
fracția simplificată. 


5 PRINT * SIMPLIFICAREA FRACIILILOR * 
10 PRINT * DATI NUMARATORUL " 

15 INPUT A 

20 PRINT * DATI NUMITORUL * 

2aS INPUT B 

30 DIM S(100) 

33 l=0 

40 0D=2 


45 PF Dc=B THEN 93 

SO IF I=0 THEN 80 

SS PRINT * SE POATE SIMPLIFICA CU: 
60 MAT PRINT Sil) 

65 PRINT * FRACTIA SIMPLIFICATA: «*; 
70 PRINT A;*/“;B 

75 STOP 

80 PRINT * NU SE POATE SIMPLIFICA « 
85 PRINT * FUNCTIA DATA: *; 

90 GOTO 70 

95 c=B8/0, 

100 1F INT(C)=C THEN 115 

105 D=D+l1 

110 GOTO 45 

115 EzA/D 

120 IF INT(E)=E THEN 130 

125 GOTO 105 

130 A=E 

135 8=C 

140 i=tet 

145 S(1)+0 

150 GOTO 40 

1SS END 


10.9. Calculul aproximativ al factorialului unui număr 


Programul solicită prin dialog numărul n și determină factorialul ,său 
pe baza formulei : 


n | 2 4/2rn (n/e)* 


Simplificarea unei fracții 


107 


Formula este indicată pentru valori mari ale lui n, deoarece nu există 
înmulţiri succesive, mari consumatoare de timp. 


10.10. Permutări, 


Ss PRINT * FACTORIAL * 

10 PRINT ” DATI NUMARUL ” 

15 INPUT N 

20  1F N>O THEN 35 

25 PRINT ” NUMAR NEGATIV SAU ZERO * 


30 SToP 

33  F=(SQR(oxPIxN))*(N/EED)*N 
40 PRINT N;"l = "*;F 

45 STOP 

SO END 


aranjamente, combinări 


Programul solicită mai întîi tipul operaţiei, și corespunzător 
parametrii necesari. Calculele se execută după formulele: 
a) permutări de n elemente: 


P.=n| 


b) combinări de n elemente luate cite r: 


SEI n | 
O ii ear gi 


c) aranjamente de n elemente luate cite r: 


Piz a e 
An (n—r) | 


Se afișează apoi rezultatul operaţiei. 


10 
20 
30 
10 
50 
60 
70 
80 
100 
110 
115 
120 
130 
140 
150 
160 
120 
180 
190 
200 
210 
220 
230 
240 
2:50 
260 
270 
280 
290 
300 
3f0 
320 
330 
344 
350 
400 
410 
420 
430 
440 
450 


PRINT * Pa: PERMUTARE A N ELEHENTE 
PRINT * A= ARANJAMENTE A R ELEMENTE DIN N 
PRINT * C: COMBINARE A N ELEMENTE LUATE CITE R 
ASz INKFY3 

1IFAS=" * THEN 40 
1PA%>"P” THEN 100. 
IFA+9:"A" THEN 100 
IFA9:"C" THEN 100 

GOTO 10 

PRINT * INTRODUCETI Pe N 
INPUT N 

1FA%=:"P" THEN 170 

PRINT * INTRODUCETI PL R 
INPUT R 

IF, R<=N THEN 170 

PRINT "ARN 

GOTO 120 

2: N 

GOSUB 400 

IFAD=:"P" THEN 380 

B=:A 

2 = N-R 

GOSUB 100 

C=A 

IFAS="A" THEN 280 

2: 

GOSUB 400 

C = Cs 

PRINT *N*;:AS;"R a *;8/U 
PRINT * CQNTINUATI (D/N) - 
AS= INKEYS 

IFAS=* * THEN 300 
IFAS="D" THEN 10 

STOP 

PRINT "NP » “:A 

GOTO 290 ă 

4-1) 

FOR X=1 TO 2 

A = AunX 

NEXT X 

RETURN 

ENB 


acesteia, 
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Subprogramul de la linia 400 calculează exact valoarea factorului Z |. 
Be apelează cu valorile Z egale cu n, n—r,r de care avem nevoie în formulele 
anterioare. 


10.11. Ordonarea unui şir de numere 


Programul solicită mai întîi cîte numere se ordonează, apoi şirul de numere 
efective. Se execută ordonarea în ordine crescătoare sau descrescătoare, afişind 
şirul ordonat. 


9 PRINT * ORDONAREA UNUI SIR DE NUMERB 
10 PRINT * IN ORDINE CRESCATOARE/DESCRESCATOARD - 
15 PRINT + CITE NUMERE INTRODUCETI ? * 
20 INPUT N 

253 DIM A(N) 

30 PRANT * DATI SIRUL DE NUMERE « 

35 MAT INPUT A 

40 PRINT * IN ORDINE CRESCATOARE (DA=l) 
45 INPUT D 

35 FOR l=1 TO M-i 

60 FOR J=tiei TON 

63 IP D=i THEN 80 

70 IF ACIDXACJ) THEN 110 

75 G0T0 83 

90 IF A(LICA(J) THENIIQ 

85 Baa(]J) 

90 FOR K=J TO lei STEP -i 

95  ACKD)mAt(K-3)5 

100 NBXT K 

103 A(l)=8 

110 NEXT J 

115 NEXT | 

120 MAT PRINT a 

125 sTop 

130 END 


10.12. Calculul sumei celor mai mari numere 
dintr-un şir de numere date 


10 PRINT * ADUNAREA A N MUNERE DIN M 
20 PRINT * AVIND VALOAREA CEA MAI MARE 
490 PRINT * CITE NUMERE INTRODUCETI 2? * 
40 INPUT HM 

SO DIM A(M) 

60 PRINT * DAVPI NUMERELG 

70 MAT INPUT A 

60 PRINT * CITE NUMERE SE ADUNA 

90 INPUT N 


100 IF Nc=M THEN 130 See, , i 
110 PRINT *N)M SE ADUNA TOATE NUMERELE Programul solicită prin dia- 


med PRET log numărul total de elemente 


140 FOR la=i TON ? A a nt ă a 
po dala NCIRIAN şi valorile lor, apoi solicită va 
160 FOR Jal+i TO H loarea m. 

170 IF B(I1)>sA(J) THEN 210 

180 C=B(1[) ) 4 . 

190 B(L)aACJ) Se afişează suma celor m» 
200 A(J)=C numere. 

210 NEXT J 

220 NEXT | 

230 8=0 

240 FOR Il+i1 TON 

250 B=B+B(1) 

260 NEXT |] 

270 PRINT * SUMA CELOR *;H;" NUMERE - 

275 PRINT * CU VALOAREA CEA HAI MARE: e: 

280 PRINT 9 

290 STOP 

300 END 
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10.13. Calculul valorii medii ponderate 
a unei variabile aleatoare 


Se efectuează calculul valorii medii ponderate după formula : 


n 
Sax 


d A PODU. 1! MONI 


ta | 


Se introduc prin dialog numărul total de măsurători, valorile fiecărei 
măsurători și ponderile cu care se efectuează calculul. 


Se afişează valoarea V. 


3 PRINT * VALOAREA HEDIE MATEMATICA CU PONDERE * 
10 PRINT * DATI NUMARUL DE MASURATORI * 
15 INPUT N 

20 DIM M(N),X(N) 

25 PRINT * DATI VALORILE MASURATORILOR * 
30 MAT INPUT HM 

35 PRINT * DATI PONDERILE * 

40 HAT INPUT X 

43 A=0 

SO 8=0 

S5 REW * CALCULUL * 

60 FOR l«! TON 

6S  A=A+MH(L)nXil) 

70  B=B+ăX(1) 

75 NEXT II 

80 PRINT *V a “;A/8B 

85 STOP 

90 END 


10.14. Calculul valorii medii și abaterii standard 
a unei variabile aleatoare 


i Se determină valoarea medie şi abaterea standard după formulele 3 


| Se introduc prin dialog numărul total de măsurători şi valorile lor. Se 
afișează valoarea medie și abaterea standard determinată. 
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e PRINT * CALCULUL VALORII MEDII SI A ABATERII * 
10 PRINT * STANDARD « 

15 PRINT * CITE MASURATORI ATI EFECTUAT » 
20  ÎNPUT N 

25 PRINT * DATI VALORILE HASURATORILOR « 
30 HAT INPUT M(N) 

33 s:0 

45 FOR X=1 TON 

SO  S=S+*M(x) 

55 NEXT x 

60 V=S/N 

65 s=0 

75 FOR X=1 TO N 

80  SaS+(M(X)-v»-2 

85 NEXT X 

90  2=SQR(S/(N-1)) 

95 PRINT * VALOAREA HEDIE: *;v 

100 PRINT * ABATEREA STANDARD: *;2 

105 STOP 

110 END 


10.15. Tabela valorilor unei funcţii definită pe intervale 


Programul solicită prin dialog trei intervale ce vor alcătui domeniul 
de definiţie, de forma: 
[A, B], (B, C), [C, D] 


Funcţia este definită astfel: 


— pe intervalul [A, B] în linia 35 
— pe intervalul (B, C) în linia 45 
— pe intervalul [C, D] în linia 55 


=) PRINT * FUNCTIA VARIABILA IN INTERVALE « 
10 PRINT * DATI INTERVALELE A,8,C,D « 

15 INPUT A,B,c,v 

20 FOR X=A TO D STEP 0.25 

25 ka A+ SGN(X-A)+SGN(X-B)+SGN(X-C)+SGN(X-D) 
30 ON K GOoTo 35, 35, 45, 45,4s,ss,ss 

33 F=0 


SS F = SQR(C-B+Cc-x 

60 PRINT "Xa" ;X; “R(X)a;R 
63 NEXT x 

70 STOP 

75 END 


Definiţiile pot fi modificate în cadrul programului. Linia 20 defineşte 
pasul cu care se efectuează tabelarea valorilor funcţiei. Ca rezultat, se afișează 
valorile funcţiei şi ale argumentului pe intervalele date. 


10.16. Calculul volumului butoiului 


Se determină volumul butoiului pe baza formulei aproximative : 


2 
Va (224 ) A, 


G 
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unde : 
D este diametrul secţiunii prin vrană 


d este diametrul fundului butoiului 
IL. este înălţimea butoiului. 


Se solicită prin dialog circumferința la vrană și la fund şi înălțimea, afi-- 
şind ca rezultat volumul butoiului. 


10 PRINT * VOLUMUL BUTOtULUL * 

20 PRINT * DATI CIRCUMFERINTA LA VRANA * 
30 INPUT C1 

40 PRINT * DATI CIRCUMFERINTA LA FUND * 
SO INPUT C2 

60 PRINT * DATI INALTIMEA «* 

70 INPUT LU 

89  Di=C1/P1 

90  D2=C2/PI 

100 V=PlnL*((2xD1+D02)/6):2 

110 PRINT * VOLUMUL BUTOILULUI: *;v 

120 ST02 

190 END 


10.17. Calculul volumului și suprafeţei torului 


Se determină volumul și suprafaţa torului pe baza formulelor : 
V=2r?Rr2 
A =47Rr 


unde: 
R este raza torului 
r este raza secţiunii torului 


Se solicită prin dialog valorile R și r, și se afișează suprafaţa şi volumul 
determinate. 


10 PRINT * VOLUMU SI SUPRAPATA TORULUI * 
20 PRINT * DATI PAZA TORULUI » 
30 INPUT R1 

40 PRET " DATI RAZA SECTIUNII * 

50 INPUT R2 i 


70  Da=0*82 

90  V=F+D2/4 

109 PRINT v SUPRACATA: ";F 
119 PRINT * VCLUINL: *;V 
129 sT02 

130 END 


10.18. Calculul perimetrului şi suprafeţei unui triunghi 


Programul permite calcularea perimetrului şi ariei unui triunghi în două. 
cazuri : fie prin introducerea lungimilor celor trei laturi, fie prin introducerea 
lungimii unei laturi și a mărimii celor două unghiuri adiacente. Se afişează 
perimetrul şi suprafaţa determinată. 
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10 PRINT * CALCULUL PERIMETRULUI sI * 10 PRINT * INTR-UN TRIUNGHI SE CUNOSC: * 
15 PRINT * SUPRAFETEI TRIUNGHIULUI * 20 PRINT * LUNGIHEA UNEI LATURI S1 * Fi 
20 PRINT * SE CUNOSC LUNGIMILE LATURILOR * 30 PRINT * UNGHIURILG PE ACEASTA LATURA * 
30 PRINT * DATI LUNGIMILE LATURILOR «* 40 PRINT * DATI LUNGIMEA LATURII * 
40 INPUT X,Y,Z 50 INPUT Y 
SO  P=xkeYy+Z 60 PRINT * DAȚI UNGHIURILE * 
60 Q=P/2 70 INPUT U 
70  S=SOR(QncCQ-X)Rm(Q-Y)n(Q-2)) 80 INPUT VU 
SO PRINT * PERIMETRUL: ";P 90  V=360-(U':W) 
90 PRINT * SUPRAFATA: *';3 100 XaY*SIN(U*P1/180)/SIN(VxP1/180) 
100 STOP 110 2=Y*SIN(U»P1/180)/SIN(VxP1/180) 
110 END 120 P=X+Y+2 
130 Q=P/2 


140 S=SQR(an(Q-X)u(Q=YV)ntQ-2)) 
150 PRINT * LATURILE: *;X,Y,Z 


160 PRINT * UNGHIURILB: *;0,V,Yy 
170 PRINT * PERIMETRUL: *;P 

180 PRINT * SUPRAFATA: *;5$ 

190 SToP 


200 END 


10.19. Calculul celui de-al N-lea număr din șirul 
lui Fibonacci. 


S-a plecat de la relaţia de recurentă: 
F (N)=F (N—I1)+F (N—2), (V)N 23 
F(1)=1; F(2)=2. 

Programul se bazează pe organigrama dată în figura 10.5. 


10 PPINT"PROGRAMUL TIPARESTE” 
20  PRINT"AL N-LEA NUMAR DIN” 

20 PRINT“SIRUL LUI FIBONACCI* 
40  PRINT"N=* 

o INPUT N 

GO T=1 

70 U=2 

80 FOR K=0 TO N-a 

cr) Vai) 

100 ui=1)+7 

110 1=V 

120 NEXT K 

120 PRINT"F( "N," de",u 

1840 END 


Fig. 10.5. Organigrama calcu- 
lului celui de-al N-lea numâr 
din şirul lui Fibonacci. 
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10.20. Calculul aproximativ al rădăcinii 
VX=Z, n=2, X>0 


S-a folosit relaţia de recurenţă: 
1 
Za |n Zet |n >0 
x, dacă x >|l, 
* li, dacă xl. 


Programul se bazează pe organi- 
grama dată în figura 10.6. 


Procesul de calcul se oprește cînd 
este satisfăcută relaţia : 


Zu Zu | <e 


PRINT" CALCIILIIL RADICALULUI ” 
PRINT"DE CRDIN N>a2 DINTR-UN” 
FRINT "NUMAR POZITIV XX" 
PRINT"N=" 

INFUT N 

IF N>=z2 THEN 43 

PRINT "EROARE “ 

GUTA 20 

PRINŢ"“X=" 

INPUT Y 

IF X*O0 THEN €3 

IF X=0 THEN 7$ 

FRINT"EROARE" 

GOTO 45 

FRINT"REZULTATUL ESTE 0." 
GOTO 120 

IF X>1 THEN 100 

Y=i 

GOTO 105 

Yv=X 

2=((N-1)3xY+X/Y*(N-1))7/N 

IF ABŞ(Z2Z-Y)1=10*(-93) THEN t2$ 
Y=2 

GOTO 103 

F'RINT "RADICALUL PIN XX," EȘTEs", 2 
END 


Fig. 10.6. Organigrama calculului aproximativ al rădăcinii 


V X=z, n=2, X>0. 
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Capitolul 11. | Microcalculatorul aMIC în economie 


şi tehnică 


11.1. Antecalculaţia de preţ pentru un produs 


Programul efectuează calculul preţului de producţie și livrare a unu: 
produs, în baza formulei: 
Preţ producţie şi livrare = (cost complet prod.)+(beneficiu) 


Cost complet prod.=(cost uzină) (cheltuieli - desfacere) 


Beneficiu= 15% (cost complet producţie). 


10 PRINT * MATERII PRIME Si MATERIALE «* generale ale întreprinderii). 

3 PRINT * DIRECTE: » 

20 INPUT A i Cheltuieli desfacere =3%, (cost uzină). 

25 PRINT * RETRIBUTII DIRECTE € . ai : 

20: INPUL 8 eltuieli generale “ale  întreprinderit 

35 REM * CALCUL IMPOZIT * E i 

40 1 a (8x16)/100 EPA =12% (cost secţie) 

45 PRINT * IMPOZIT 164: ";1;" ti A FA a 

SO REM * CALCUL C.A.s. * Cost secţie = (cost materii  pri:ne)$ 

35 C . ((8+1)x*15)/100 . .. E z 

50 PRINT * C.A.5.: SC; EL e vetrlbuţii directe) + (iinpo 

65 REM * CHELT. FUNC UTILAJE « zit 16%)+(C.A.S.)+ (chelt. 

70 K = Bri+c : la: Si 

75 U « (k*18)/109 funcționare utilaje) + (chel 

$0 PRINT * CHELT.FUNC.UT.: *;U;* Lel «* tuieli generale secţie). 

65 REM * CHELT.GEN.SECTIE ” 

90 D a (Kx80)/100 inită i : FIRE I-A IE, PREA 

Sa nule 3 cuci DEN GER ie ata CUBI Se solicită prin dialog variabil ele : 

es alpi A IRI Lua dl cost materii prime şi valoarea retri- 

110 PRINT * COST SECTIE: *;S;* LEI * buţiilor directe. Se afișează toţi para.- 

115 REM * CHELT.GEN.INTREPR. * .. . e . . 

120 E 2 (Sx12)/100 metrii intermediari enuwmeraţi mai sus, 
. : A sie eRi Bia i. * A__. . . 

130 REM» COST UZINA: E iar la sfirșit, preţul final de producţie 

135 F = S+R [i : : 

i 0 BENE 3 100 0a IONA iei ÎLE dă şi livrare. Procentajele din cadrul calcu- 

Da ai stă do alelă lelor unor parametri constituie un caz 

1SS PRINT * CHELT.DESFACERE: *;6:* LEI « particular, fiecare utilizator put înd 

160 REM ” COST COMPLET PROD. * “pa : | 

165 P a F+6 modifica programul conform cerinţelor 

170 PRINT * COST COMPLET PROD.: *;P;* LEI * ii 

175 REM * BENEFICIU 15% = propriu. 

es PRINT : BENEFICIU 15%: *;N;* LEI * Prograinui este util în cazul În 

dala aaa aL lu ai Rl det ir d al care se dorește aflarea rapidă a variaţiei 

ro ai MIR tal cpt Fadel preţului de producţie în funcţie de va- 

210 ERIN 0 SALI PRODUSI: DAS: sec riaţia costului materiilor prime ce intră 

220-151 e A ahEN1o în componenţa produsului şi a valori 


230 END retribuțiilor necesare la executarea sa. 
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11.2. Calculul primei acordate după grupa de vechime 


Se consideră următoarele grupe de vechime: 


I. <5 ani IV. 15—20 ani 
II. 5—10 ani V. > 20 ani 


III. 10—15 ani 


Programul solicită prin dialog totalul sumei ce se va acorda drept prime 
pentru fiecare grupă de vechime. Se determină suma ce revine fiecărui angajat 
conform cu grupa din care face parte, și afișează lista tuturor angajaţilor, în- 
soţită de retribuția tarifară și prima acordată. 


„9 PRINI * Actii. PRIMEI IN FUNCTIE * 
19 PRINT ” Ut GRUPA JE VECHIME * 
20 PRINT * GRUPE "L-H:M «IS >»-10 


23  PRINI * 10.15 13-20 > 20 ANI * 
30 DIM Pr5),NSe10..,Te$: 

40 PRINT * .NTRUU  CUMA/GRUPA CE ct 
13 PRINT * ACGACA DREPT! PR:MA * 

»O  YAT INPUT P 


60 PRINT * 1NIR-D NR 'OTAL ANGAJATI! * 
?0 INPUT M 

89 MAT 1 = 7FEaA 

90 FOR 1 TOM 

1CO RI:AD N+I(TO) 

110 READ vV 


120 K = INT(V/5)el 
130 T(K) = Ti(K)el 


140 READ S 

150 NEXT | 

189 FOR 1 = 1 T05 
170 Pites = PLiD/T(T) 
3RO NEXT | 


190 RTSTORE 

PO9 rCR 1 = 1 70 M 

21C RIE:AD NSI(TO) 

220 RFAD V 

239 K = INT(V/SD)+1 

210 READ 5 

230 PRINȚ NI,S,Pri.) 

759 NCXT II 

279 STo” 

230 REM "NUME , Vi:CHIRE , RETRIBUTIE " 
299 DATA "IONESCU", 3,3200 
309 DATA "POPESC+,3,2710Q 
310 DATA 2... 


Datele referitoare la angajaţi se introduc prin DATA conform cu liniile 
de la sfîrşitul programului. Fiecare linie va conţine numieie angajatului, vechi- 
mea sa în muncă și retribuţia tarifară. 


11.3. Determinarea beneficiului pentru o structură de 
iabricaţie pe produse dată 


Programul poate îi utilizat ca mijloc de determinare a celei mai avanta- 
joase structuri de fabricaţie pe grupe de produse. Se solicită prin dialog urmă- 
toarele date: 
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— numărul şi numele produselor de fabricaţie ; 

— numărul şi numele materialelor (materiilor prime) necesare fabricării 
tuturor produselor ; 

— pentru fiecare produs, cantitatea de materii prime ce intră în fabri- 
caţia sa ; 

— pentru fiecare materie primă, cantitatea existentă în stoc ; 

— pentru fiecare produs, beneficiul estimat ; 

— structura de fabricaţie (cite bucăţi se vor fabrica din fiecare produs). 

Se verifică mai întii dacă în baza datelor introduse, se poate realiza struc- 
tura de fabricaţie cerută (nedepășirea stocului de materii prime), iar dacă 
rezultatul verificării este pozitiv, se afișează beneficiul total pentru această 
structură. Se poate repeta întregul proces, modificînd doar structura de fabri- 
caţie, pînă la determinarea unei structuri optimizate (fig. 11.1). 


Structură de produse —=X(M) 


O(N) = necesar materiale pt. 
structura data 


PRINT Stoc inexistent 


NU 
DN i 
Benefciu = 3. X(I) s C(i) Daţi alta structura da 
I=] 


NU 
Fig. 11.1. Organigrama programului pentru determinarea beneficiului 
pentru o structură de fabricaţie pe produse date. 


Datele despre produse şi materiale rămîn nemodificate pe parcursul 
iteraţiilor, introducerea lor fiind necesară numai în faza iniţială, de creare a 
tabelelor de date din program. Odată salvat pe casetă cu aceste date introduse, 
programul poate fi reluat oricînd direct de la dialogul de stabilire a structurii 
de fabricaţie. 

Variabilele M, N conţin numărul de produse respectiv de materiale. Matri- 
cile utilizate conţin următoarele date: 

D $ (M)  — denumirile produselor 
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P $ (N)  — denumirile materialelor 

A(M, N) — cite unităţi din materialul N necesită produsul M 
B (N) — stocul de materiale existente 

C (M) — beneficiul estimat pe produse 

Ciclul de verificare începe de la linia 300: 


10 PRINT * DETERMINAREABENEFICIULUI * 
12 PRINT * IN FUNCTIE DE 0 STRUCTURA * 
15 PRINT * DE FABRICATIE ALEASA * 

20 PRINT ” INTROD.NR.TOTAL PRODUSE * 


25 PRINT * SI NR.TOTAL MATERIALE * 
30 INPUT M,N 

40 DIM A(M,N),X(ND,B(N),C(N),D(N) 

So DIM D$(H,10) 

60 DIM P4(N,10) | 

70 PRINT * INTROD.DENUMIRI PRODUSE * 
80 FOR Ia 1 T0M 

20 INPUT D$(1) 

100 NEXT 1 

110 PRINT * INTROD.DENUMIRI MATERIALE * 
120 FOR 1 = 1 TON 

130 INPUT P$(I) 


140 NEXT 1 

145 PRINT “ INTROD CONSUM MAT/PROD. * 
150 FOR 1 = 1 T0MH 

160 FOR J=1 TON 


170 PRINT D$(1);* NR.BUC.DIN: ";P9(J) 
180 INPUT A(1,J) 

190 NEXT J 

200 NEXT 1 

205 PRINT * INTROD. STOC HAT * 

210 FOR J = 1 TON 

220 PRINT * DIN *;P%(J);* CITE U/M AVETI 2 
230 INPUT B(J) 

240 NEXT J 

245 PRINT * INTROD BENEF.ESTIAAT 

250 FOR 1-1 T0M 

260 PRINT D$(1);" CE BENEF.REALIZEAZA * 
270 INPUT C(Il) 

280 NEXT | 

290 PRINT * INTROD.STRUCTURA DE FABR. * 
295 PRINT * NR. PRODUSE PE TIPURI * 

300 FOR 1 = 1 TOM 

310 PRINT D5(1);* PRODUŞ « 

320 INPUT X(1) 

330 NEXT 1 

340 MAT D = ZER 

350 FOR 1 21 TON 

360 FOR J = 1 TOM 

370 D(1) = D(1)+xX(J)AtI,l) 

380 NEXT J 

390 NEXT 1 

400 J 20 

410 FOR la 1 TON 

420 IF J <> O THEN 460 

430 IF D(t) <a B(L) THEN 460 

440 Ja=1 

450 PRINT * STRUCTURA DATA NU SE POATE «* 
455 PRINT * RBALIZA * 

460 NEXT 1 

470 1F J = 0 THEN $20 

480 PRINT * ALTA STRUCTURA? (DAzi) 
490 INPUT & 

S00 IP E = 1 THEN 290 

510 SToP 

$20 $ 20 

530 FOR L=1T0N 

540 3 2 S+xX(e)nc(1) 

S50 NEXT | 

540 PRINT * GENEFICLUL BST8: *;$ 

$70 80T0 490 

580 6ND 
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T=A (i,2) +B(13) 


A(L2)T 
NU 


At -2)27 


Stop i=] 
K=K +1 40 | 
ka > <LA(i19 > U 
da 


Fig. 11.2. Organigrama programului pentru determi- 
narea drumului minim între două noduri ale unui 
graf dat. 
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11.4. Determinarea drumului minim între două noduri 
ale unui graf dat 


Programul consideră un graf ca fiind definit prin noduri şi arce, fiecare 
nod fiind etichetat cu un număr întreg pozitiv. Se solicită prin dialog: 


— numărul total de noduri = N 
— numărul total de arce= E 
— eticheta (numărul) nodului de pornire (primul nod din drumul de 
minimizat) = S 
— eticheta (numărul) nodului de sosire (ultimul nod din drum) = SĂ 
— pentru fiecare arc : 
— nodul iniţial 
— nodul final 
— lungimea sa. 


Din datele introduse se comple- 10: PRINT CRUMUI ERIC 
tează masivul A (N, 4) în care A (L, 2)=— (e A 4 IARNA NR 
= 1 000 000 considerat un timp îoarte So INPUT £ 
mare respectiv A (S, 2) =0 pentru nodul 75 PR NUL NOULUI DE FORNIRE : 
de pornire. Masivul B (E, 3) se com- ina : MR.-UL NCUULU! DS SOS!RE - 
pletează cu numărul nodurilor pe arce si d ul Rule RI 
și cu timpii necesari parcurgerii arcelor. 120 Al sa 
Conectorul A (L, 4) va conţine legătura oo 
către liniile din masivul B. co MEI 
În A (L, 2) se totalizează timpii eee cp PAI Al aaa ad al 
necesari parcurgerii grafului, conform E oo e 
schemei din figura 11.2. iasa i gi Gal 
Do afişează sub forma unui Şir de 323 REA 7 ÎNLANTULRE TABLOU A Si k& 
etichete (numere) drumul minim între ZE Ad 4 a Al 
cele două noduri specificate. Afişarea Ed Malaia 
se face în ordinea inversă parcurgerii 270 3 = at1,4) 
sale (de la nodul de destinație la nodul Eta ta ital bai 
de pornire). | o ta 
"* Programul poate - fi utilizat într-o citi sa pa Mili at 
serie de domenii unde este necesară 350 AeL!3) > 1 
optimizarea distanțelor parcurse, pla- spc Ei oc A RIO 
nificarea activităţilor de producţie etc. Ed do Ga ta 
Se va considera lungimea unui arc drept A0O ap IL Sea NEA AO 
măsură pentru distanțe de parcurs, 430 K = Kei 
timpi necesari în efectuarea unor ope- A50 IF A(I,l0 2 0 TREN 390 
rații tehnologice etc. 370. PIN DIN *S:* IN *;H;* DRUMUL *, 


480 PRINT * CEL MAI SCURT ESTE: * 
490 PRINT * PRIR NODURILE: *;H; 
sbo x = A(h,3) 

$10 IF X = O THEN 350 

320 PRINT * , *;xX, 

930 X = A(X,3) 

S40 60T0 310 

$50 STOP 

$40 END 
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11.5. Gestiunea unui stoc de magazie de tehnică dentară 


Se consideră că există o magazie care primeşte materiale specifice dentare, 
și le distribuie la mesele de lucru. 

Fiecare masă de lucru elaborează o anumită lucrare, pentru care se con- 
sumă o anumită cantitate de materiale. 

Fiecărei lucrări îi este asociat un barem de consumuri utilizat pentru 
în normele stabilite. 

Programul oferă următoarele opțiuni de lucru : 

— punerea la zi a magaziei centrale (primire eliberare materiale) ; 

— vizualizarea stocului existent în magazia centrală ; 

— punerea la zi a stocului de materiale la mesele de lucru, cu verificarea 
consumului de materiale ; 

— vizualizarea stocului de materiale existent la mesele de lucru. 


verificarea încadrării 


10 
20 
30 
40 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


x 


MAGAZIA DE TEHNICA DENTARA * 

la SE TINE LA 21 MAGAZIA CENTRALA * 

2= VIZUALIZARE STOC MAGAZIE CENTRALA * 
3a VIZUALIZARE STOC LA MESE * 

4a SE TINE LA ZI STOCUL LA HESE »* 

Sa STOP * 


- DATI NUMARUL PRELUCRARII * 


ON X GOTO 90,400,780,880, 1540 
PRINT * SE TINE LA ZI MAGAZIA CENTRALA * 
PRINT * PRIMITI SAU ELIBERATI MAT.(P/E) * 


INPUT A% 


IF A$ 


"E" THEN 430 


IF A$ <> “*P* THEN 90 
PRINT * DATI MATERIALUL Si CANTITATEA * 


Yy.0 


-INPUT B9(T0),xX 


FOR 1-1 TON 
IF B$ <> M$(Ii) THEN 220 
O(1) = O(1)+X 


Ya=1 
l=N 
NEXT | 


IF Y <> O f(HEN 340 
PRINT * MATERIAL NOU? (0/N)» 


INPUT A$ 


IF A$ = -D* THEN 280 
GOTO 340 
REM * SE ADAUGA UN MATERIAL NOU * 


Na N* 


O(N) = X 


1 


MN9(N) = 84 

FOR Il =1 TOM 

PRINT * CONSUM SPECIFIC PRODUS *;Ps:(1); 
PRINT * DIN MATERIAL *;:8% 

INPUT P(I,N) 


NEXT 1 


PRINT * MAI PRIMITI HATERIAL (D/N) * 


INPUT As 


IF A$ = *D” THEN 140 

PRINT * DORITI VIZUALIZARE STOC (0/N) * 
INPUT As 

IF A$ <> "D”" THEN 10 

PRINT * VIZUALIZARE STOC MAGAZIE CGNTRALA 
FOR l.1 TON 

PRINT HS(1)," *.0(1) 


NEXT | 


GOTO 10 


PRINT * SE ELIBBREAZA MATERIAL LA MESE 


PRIMI 
INPUT 


s 


MATII NURARUI. MUSEL * 


IF S <= O THEN 460 

IR S)> Q THEN 460 

PRINT * DATI MATERIALUL SI CANTITATEA * 
INPUT B9(T0),X 


Yy 20 


FOR | 21 TON 


IF 89 < 


HNS(1) THEN 370 
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360 i = 

370 NBXT 1 

380 IF Y (<> O THEN 610 

390 PRINT * NU EXISTA MATBRIALUL IN MAGAZIE * 
600 G6O0T0 680 

610 O0(Y) = Q(Y)-x 

620 IF O0(Y) >=0 THEN 660 

630 PRINT * NU EXISTA CANTITATEA IN MAGAZIE * 
640 O0(Y) « O0O(Y)+xX 

650 GOTO 680 

660 REM * SE ADUNA LA STOCUL MESEI * 

670 A(S,Y) = A(S,Y)+xX 

680 PRINT * MAI ELIBERATI LA MASA *;S;" (D0/N> * 
690 INPUT A5$ 

700 IF A9 = "D" THEN 300 

710 PRINT * ELIBERATI LA ALTA MASA? (D/N) * 
720 INPUT AS 

730 IF AS = "*D* THEN 460 

740 PRINT * VRETI VIZUALIZARE STOC MASA (D/N) 
750 INPUT AS 

760 IF A9 = "D* THEN 780 

770 GOTO 10 

780 PRINT * VIZUALIZARE STOC MASA * 

790 PRINT * DATI NUMARUL MESEI * 

800 INPUT s 

810 IF $ «= O THEN 790 

820 IF s$ > Q THEN 790 

630 FOR 1.1 TON 

640 PRINT * Ms(1).* *,„A(S,I) 

8ŞO NEXT | 

860 PRINT * HAI VIZUALIZATI STOC LA MASA (0/N) * 
870 GOTO 7350 

880 PRINT * SE DAU REALIZARILE LA MESE * 

690 PRINT DATI NUMARUL MESEI * 

900 INPUT s 

910 IF S$ ca O THEN 890 

920 IF S$ > Q THEN 890 

923 HAT B(M)> = ZER 

930 PRINT * DATI PRODUSUL SI NR.PROD.REALIZATE * 
940 INPUT B9(T0),x 

950 Y = 0 

960 FOR 1.1 TOM 

970 IF 89 <> Pol) THEN v010 

980 Y =. 

990 81) . x 

1000 ll. 

1010 NEXT | 

1020 ÎF Y <> O THEN 1130 

1030 PRINT * PRODUS NOU? (90/N) * 

1040 INPUT A3 

1050 IF AS <> "D” PMEN 1130 

1093 REM * SE ADAUGA UN PRODUS NO00 * 

1060 H « Mo+1 

1070 P9(H) = 83 

1080 PRINT * DATI CONSUNURILE SPECIFICE PROU.NOU * 
1090 FOR i 21 T0N 

1100 PRINT Mol), 
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1110 INPUT P(MH,I) 
1120 NEXT | 

1130 PRINT * HAI DATI REALIZARE? (0/N) 

1140 INPUT A% 

1150 1F' AS = “D* THEN 930 

1155 MAT C(N) ZER p 

1160 PRINT * DATI CONSUM MATERIALE LA MASA «;S$ 
1180 INPUT Bs$(T0),xX 

1190 Y=0 

12Q0 FOR 1: 1 TON 

1210 IF 59 (> H3(1) THEN 1270 


1220 Y «1 i 
1230 1F A(P,1) €"X THEN (260 
1280 Y =2 

1250 cil) = %X 

1260 | =N 

1270 NEXT 1 

1280 IF Y = 2 THEN 1340 

1290 IF Y = 1 THEN 1320 


1300 PRINT * MATERIAL INEXISTENT + 
1310 GOTO 1340 

1320: PRINT * STOC INSUFICIENT * 

1340 PRINT * MAI DATI CONSUM? (D/N) * 
1390 INPUT A3 

1360 IF A$ = "D* THEN 1170 

1370 FOR 1 = 1 TON 


1380 A(S,1) = A(S,L)-CUl) 
1390 NEXT i 

1400 MAT D = ZPR 

1410 FOR 1 =: 1 T0MH 

1420 FOR J = 1 TO N 


1430 D(J) = D(JD)+B(LDmP(J,L) 
1440 NEXT J 

1450 NEXT | 

1460 Y =0 

1470 FOR 1 = 1 TON 

1475 IF D(1) <= C(I) THEN 1500 

1480 PRINT * S-A DEPASIT CONSUMUL LA “;MS(1D; 
1485 PRINT * MATERIAL CU ";C(1)-D(1) 

1490 Y = 

1500 NEXT 1 

1510 IF Y = 1 THEN 10 

1520 PRINT * VATI INCADRAT IN CONSUM SPECIFIC « 
1530 GOTO 10 

1540 STOP | 

1600 REM * CREARE FISIER STOC » 

1610 REM * SE CREFAZA LA MAXIM 100 MATERIALE * 
1615 REM * 20 PRODUSE SI Ş MESE » 

1620 DIM 0(100),8(20),C(100),D(100) 

1630 DIH A(5,100),P(20,100) 

1540 DIM P$(20,10),H$(100,10) 

1650 REM * SE INTRODUC S MATERIALE 2 PRODUSE -* 
1655 REM * RESTUL SF INI'RUDUC PRIN PROGRAM * 


1660 N= 

1670 H +2 

le8so0 a =5 

1690 MAT 0 = Z2ER 

1700 P$(1) = “PLAN (NCL.* 
1710 P$(2) = "MONOBLOCa" 
1720 M$(1) = "CEARA* 

1730 M$(2) = "MASA AMBL.e* 
1740 M$(3) = “ALIAJ INOX" 
17350 M$(4) = “"GIPSe* 

1760 MAT A = ZER 

»770 MAT P = ZER 


1780 REM " CONSUMURILE SPECIFICE * 
1790 FOR ÎI = 1 T0M 

1800 POR J = 1 TO N 

1810 READ P(1,J) 

1820 NEXT J 

1830 NEXT 1 

D835 REM ” CONSUM SPECIFIC DUPA BAREMN * 
1810 BATA 5,10,14,600,60 

1850 DATA 15,0,0,200,60 

1900 60T0 10 

2000 8N0 
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Programul poate fi utilizat ca model de referință pentru gestiunea stocu- 
rilor la magazii mici-medii, spaţiul de memorie ocupat de datele referitoare 
la magazie depinzind în mare măsură de modul în care sînt codificate mate- 
rialele din stoc. Asocierea unui număr mare de date unui material dat va reduce 
numărul total de materiale ce pot fi cuprinse în tabelele de descriere a magaziei. 
lhapiicit, numărul maxim de materiale diferite nu poate fi mai mare de 254, 
deoarece interpretorul BASIC nu admite tablouri a căror dimensiune să fie 
vai mare de 254. 


; Pentruțprima lansare se utilizează comanda RUN 1600 care dimensionează 
matricile utilizate. Prin inițializare s-au introdus 5 materiale, 2 produse și 
consumurile snerifi-e aferente. Prin program se mai introduc restul de materiale 
şi produse. După iniţializare programul se lansează cu comanda GOTO10 
pentru a'nu iniţializa masivele completate cu stocul magazisi centrale, respectiv 
cu stecul meselor de lucru. 


11.6. Balanța de verificare debit-credit 


Programul constituie un exemplu simplu de realizare a unei balanţe de 
verificare. La prima rulare, programul solicită introducerea numărului total 
de conturi şi a numerelor de cont pentru care se vor face operaţiile de debit/ 
credit. Se introduc apoi. pentru fiecare număr de cont, debitele și creditele 
pe luna în-curs. Se afişează apoi balanta de verificare pe subconturi ; la umple- 


rea ecranului, “atişajul se opreşte, putînd fi reluat prin apăsarea unei taste 
oarecare. După afişarea 'balanţei pe subconturi, se afişează balanta de verifi- 


care pe conturi, împreună cu totalurile debitoare, creditoare și pe conturi. 


“Rulările următoare înu mai solicită introducerea numerelor de cont, ci 
doar; debitul şi „credit! ra luna curentă. Verificările se fac începînd cu soldul 
lunii “Etecedente. Pentru. a nu distruge masivul cu soldul lunii precedente, 


mt Pi PR 


lansarea ulterioară a programului se realizează cu comanda GOTO 100. 


CETE P e Iu LS: 10 PRINT * BALANTA DE VERIFICARE 
20 PRINT " DATI NR.TOTAL DE CONTURI e 
30 INPUT N 
40 DIM K(N),C(ND,D(N) 

SO DIM R(N),B(N),S(N) 

60 MAT C + ZER 

70 MAT D = ZER 

80 PRINT * INTRODUCETI CONTURILE * 
90 MAT INPUT K 

100 PRINT * INTRODUCETI CREDIT/DEBIT + 
105 PRINT * LUNA CURENTA 

110 FOR 1l=1T0N 

120 PRINT K(1);*2e 

130 PRINT “DB:"; 

140 INPUT B(1) 

150 PRINT *CR:*; 

160 INPUT R(I) 

170 NEXT L 
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190 FOR'1 =: 1 TON 

190 C(1) a C(l3eRti) 

200 B(1) «= D(l)eBil) 

210 S(1) «e Del) -Crl) 

220 NEXT 1 

230 INIT P 

240 PRINT AT(1,1);* BALANTA DE VERIFICARE 
245 89 = INKEY3 

250 U =: 3 

260 FOR 1 = 1 TON 

270 PRINT AT(U,1);K(L),Sti) 

280 U = Ue*t1 

290 IF U < 31 THEN 350 

300 A9 2 INKEY% 

310 1F A% = B8s$ THEN 300 
320 U =. 3 

330 INIT P 

340 PRINT AT(1.1);* BALANTA DE VFRIFICARE 
350 NEXT 1 

360 A$ = INKEY3% 

370 '1F AS = 8% THEN 360 

380 T = Sil) 

390 M 3 INT(K(1)/1000) 

8400 INIT P 

410 PRINT AT(1,1),* TOTAL CONT 
420 u: 3 

430 FOR | » 2 TON 

440 IF M <> INT(KR(1)/1000) THEN 470 
450 T = Te+Si(1) 

460 GOro 570 

470 PRINT AT(U,1);M,T 

480 un INT(K(1)/1000) 

490 T +. Stil; 

300 U = U+i 

310 1F U < 31 THEN 570 

520 A9 2 INKEYS 

$30 IF A% : 8$ THEN 520 

Ş40 U : 3 

s5o0 INIT P 

560 PRINT AT(1,1);* TOTAL CONT * 
970 NEXT I] 

S80 PRINT AT(U,1);M,T 

610 A$ INKEYS 

620 IF A$ = 8% THEN 610 

630 INIT P 

640 PRINT AT(1,1);* TOTAL BALANTA * 
530 N: o 

660 U:0 

6740 0:00 

690 FOR Î =. TON 

690 HM = Mectl) 

700 U + U+D(I) 

710 0 = 0*+stl) 

720 NEXT | 

730 PRINT AT(3,.); "TOTAL 08: *;U 
740 PRINT AT(3,1);9TOTAL CR: “;H 
?50 PRINT AT(7,1):"BALANTA : *;0 
760 ŞTOP 


11.7. Transformarea stea-triunghi şi reciproc 


Programul determină rezistenţele echivalente celor două transformări 
după formulele : 


Ta Te 
T12 Tatra Se 


Ia “IT 
N 


a) Tes =TaIs+ (transformarea stea-triunghi) 


Is*f 
Ta 


Tss =Ts+r+ 
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T k—r [| . 
b) Or —— (transformarea triunghi-stea) 
Tis tii 

10 PRINT * CALCUL REZISTENTE ECHIVALENTE * 
20 PRINT * îm SCHEMA ELECTRICA STEA IN TRIUNGHI * 
23 PRINT * 2a SCHEMA ELECTRICA TRIUNGHI IN STEA « 
30 INPUT X 
40 1FX «. 1 THEN 2310 
ȘO PRINT * SCHEMA ELECTRICA TRIUNGHI IN STEA « 
60 PRINT * DATI REZISTENTELE IN TRIUNGHI * 
70 PRINT * R12 ="; 
80 INPUT A 
90 PRINT * R23 =»; 
100 INPUT B 
110 PRINT * R31 ="; 
120 INPUT C 
130 S$ = A+B+c 
140 0 = (AxC)/$ 
150 E = (B*A)/$ 
160 F = (C*B8)/s 
170 PRINT * Ri = *;p 
180 PRINT * R2 = ";F 
190 PRINT * R3 = *;F 
200 Srop 
210 PRINT * SHEMA ELECTRICA STEA IN TRIUNGHI « 
215 PRINT * DATI REZISTENTELE IN STEA * 
220 PRINT * Ri =; 
230 INPUT D 
240 PRINT * R2 = e; 
250 INPUT E 
260 PRINT * R3 =, 
270 INPUT F 
280 A = Dr+E+(DxE)/F 


290 
300 
310 
320 
330 
340 
330 


B = Er+Fr(ExF)/D 
C 2 F+Doe+(Fn0)/R 
PRINT * R12 = *“;A 
PRINT * R23 « “;B 
PRINT * R3I = *;C 


SToP 
END 


Se solicită prin dialog tipul transformării și valorile rezistenţelor corespun- 
zătoare. Se afișează valorile rezistenţelor echivalente. 


11.8. Dimensionarea liniilor de alimentare în curent continuu 


Se consideră un conductor de cupru cuplat la o sursă de curent continuu. 
De la acest conductor sînt alimentaţi mai mulţi consumatori, fiecare avind 
un consum Pi și o distanţă Li de la sursa de alimentare. Secţiunea conductoru- 
lui se deduce pe baza formulei: 


unde : 


2- 100 
S= apuse PL 


= Să este conductivitatea conductorului 


AU este căderea de tensiune maxim admisă 

U este tensiunea nominală 

P este puterea absorbită de fiecare consumator 

L este distanţa consumatorului faţă de sursa de alimentare. 
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10 PRINT * CALCULUL LINIEI CONDUCTOARE * 
15 PRINT * DE CURENT CONTINUU SUB » 

20 PRINT * TENSIUNE DE 220 V,DIN CUPRU * 
30 PRINT * DATI NUMARUL DE CONSUMATORI * 
40 INPUT N 

SO PRINT * 0QATI D!3TANTELE 0E LA SURSA » 


SS PRINT * IN METRI * 

60 DIM L(N»> 

70 HAT INPUT L 

BO PRINT * DAT! CONSUMURILE «* 
33 PRINT ” IN UAȚI « 

90 DIM C(N? 

100 MAT INPUT C 

110 S=0 

120 FOR 1 = 1 TON 

130 S$ = Secilomu1) 

140 NEXT |] 

159 S = Sm2x100/(33x5x220*2) 
160 PRINT * $ » *;s;* MMe2 » 
170 STSP 

180 END 


Se solicită prin dialog numărul de consumatori, distanţele de sursă şi 
consumurile fiecăruia. Se afișează valoarea secţiunii, considerînd sursa de ali- 
mentare de 220) Ve.c. şi prinderea maximă de tensiune < 3% din tensiunea 
nominală. 


11.9. Determinarea greutăţii materialelor ce intră 
în componenţa unui corp eterogen 


Se consideră un corp compus din două materiale. Fie G crcutatea acestui 
corp, cîntărit în aer, şi Ga greutatea sa, cîntărit în apă. lic pu densitatea apei, 
pi densitatea primului material și p2 densitatea celui de-al doilea material. 
Rezultă : 


[a PER e. SN . 
a [G1 = PaPa (G—Ga)—Gpapi greutatea primului material 
cai Pa (P2—P.) 
G2 = PaPa (G— Gu) —GPapa greutatea celui de-al doilea material. 


Pa (P1—P2) 


Şe introduc prin dialog valorile celor două greutăţi, precum şi densităţile 
fiecărei componente. Se afişează ca rezultat greutatea fiecărei componente. 


10 PRINT * GREUTATEA MATERIALELCR COMPONENTE - 
20 PRINT " ALE UNUI CORP HETEROGEN " 

30 PRINT ” DATI GREUTATEA CORPULUI IN AER * 
40 INPUT GI 

SO PRINT ”* DATI GREUTATEA CCRPULUI IN APA “ 
60  INPUr 62 

70 PRINT * DATI DENS!fTATEA HAT. COMPONENTE * 
80 INPUT RI1,R2 

90 REM * DENSITATEA APEI - 1 " 

100 R3 = 1 

110 VI = (RIRR2n(G1-62)-GInR3nR1)/(RI3*(R2-RI1)) 
120 V2 = (RInR2n(G1-G2)=G1uR3*R2)/(RI»(RI-R2)) 
130 PRINT * CORPUL DE ";61;" GREUTATE * 

140 PRINT * CONTINE *:;:V1;” DIN MATERIAL *:;Ril; 
145 PRINT * DENSITATE - 

150 PRINT * CONTINE *;V2, DIN MATERIAL *:;:R2; 
155 PRINT DENSITATE * 

160 STOP 

170 END 
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E Du ĂLA 
Dad a... 


11.10. Dimensionarea grinzilor de beton armat 


Programul determină înălţimea utilă şi aria armăturii unei grinzi de beton 
armat, pe baza formulelor : 


unde : 

hp este înălțimea utilă; 

a este aria armăturii ; 

m este momentul de încovoiere 

| este lățimea grinzii 

ra este rezistența armăturii 

rb este rezistenţa betonului 

£ este factor limită=0,6 

Se introduc prin dialog valorile pantru ra, rb, 1 și m. Se afişează vaioriie 
înălţimii utile și ale ariei armăturii. 


10 PRINT * VIMENSLONARE GRINDA CE BETON ARMAT * 
20 REM * SE CONSIDERA C S 1 L!MITA : 0.6 ” 


30 P = 0.5 
40 PRINT * REZISTENTA ARMATURII IN KGF/CH*2 * 
SO INPUT A 
60 PRINT * REZISTENTA BETONULUI IN KGF/CM*2 * 
79 INPUT C 


80 PRINT * LATIMEA GRINZII IN CH * 

90 INPUT B 

100 PRINT * MOMENTUL INCOVOIETOR IN KGF.CH * 
110 INPUT H 

120 T = 1-P/2 

130 S + PT 

140 R = 1/SaR(S) 

150 H = R*SQR(M/(BuC)) 

160 2 = M/(AxH=T) 

170 REM * INALTIMEA UTILA ” 

180 PRINT "HO = "*;H;" CM" 

190 PRINT "ARIA ARMATURII * *;2;* CM*2 * 
200 stop 

210 END 


11.11. Calculul secţiunii elementelor de construcţie 


Programul determină caracteristicile principale ale diairagmelor utili- 
zate în construcţii, pornind de la descompunerea secţiunii diafragmei în drept- 
unghiuri elementare. Se solicită ca date iniţiale numărul de dreptunghiuri 
elementare ce coinpun secţiunea, precum și dimensiunile unui asemenea drept- 
unghi. Se afişează drept rezultat : 

— aria secţiunii diafragmei ; 

— momentul de inerție ; 

— coordonatele centrului de greutate. 
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10 PRINT * CALCULUL SECTIUNII GLEMENTELOR * 
15 PRINT * DE CONSTRUCTII * 

20 PRINT * DATI NR.DREPTUNGHIURI ELEMENTARE * 
30 INPUT N 


40 DIM BN),HN) 

SO PRINT * DATI LATIHEA,INALTIMEA ÎN CH * 
60 FOR Ja 1 TON 

70 INPUT B(J) 

80  INPUȚ H(J3) 


90 NEXT J 

100 D 20 « 

110 H=20 

120 A =.0 

130 1 +0 

140 FOR 72 =1 TON 

150 K = B(J)mH(J) 

160 L = H+H(J)/2 

170 D = (AnRD+knL)/(Ar+k) 
180 A = A+K 

190 1 = I1+(H(J)"3xB49))/12 
200 H = H(J)+H 

210 NEXT J 

220 H=0 

230 FOR J = 1 TON 

240 L = HrH(J)/2 

250 1 = 1+8(J)x*H(J)u(tu-D)*2 
260 H = HeH(J) 

270 NEXT J 


280 PRINT “ARIA = ";A;* CH*2 * 

290 PRINT "MOMENT „INERTIE > *41ș* CH*8 * 
300 PRINT "HS = *;0;" CH e 

310 PRINT “HD 3 “+H-D;" CH” 

320 STOP 

330 END 


11.12. Determinarea momentelor de încastrare perfectă ale 
unei grinzi de beton armat 


Se consideră o grindă de beton supusă atit unei forţe uniform distribuite, 
cît şi unui număr oarecare de forţe concentrate. Se determină valoarea momen- 
tului de încastrare stînga și dreapta. Programul solicită ca date iniţiale : lungimea 
grinzii, valoarea forței uniform distribuite, numărul total de forţe concentrate 
iar pentru fiecare forţă concentrată, valoarea ei și distanţa faţă de limita stingă 
a grinzii. Se determină valorile celor 2 momente de încastrare și se afișează. 


10 PRINT 
20 PRINT 
30 INPUT 
40 PRINT 
SO INPUT 
60 T = PmL"2/i12 

70 R=T 

80 PRINT * NR.-UL FORTELOR CONCENTRATE * 

90 INPUT N 

100 IF N = O THEN 280 

110 DIM F(N),X(N) 

120 PRINT * MARIMILE Si DISTANTELE FORTELOR * 
125 PRINT ” CONCENTRATE FATA 0E STINGA GRINZII * 
130 FOR J = 1 TON 

1840 INPUT F(J) 

150 INPUT X(J) 

160 IF X(J) > L THEN 290 

170 NEXT J 

180 FOR J = 1 TON 

190 Al = X(3)/L 

200 A2 = 1-A1 

210 V = AlmA2*2mF(J)nL 

220 T = T+v 

230 V = Al“2mAanF(J)eaL 

240 R = R+v 

250 NEXT J 

260 PRINT *MST = *;T;* KGF.N e 

270 PRINT *MDR = ";R;" KGF.M e 

280 STOP 

290 PRINT * ABSCISA GRESITA * 

300 SToP 

310 END 


MOMENT DE INCASTRARE PERFECTA * 
LUNGIMEA GRINZII IÎNMH * 


FORTA UNIFORM DISTRIBUITA IN KGF/MN « 


“0 »C = » 


Optimizarea consumului de îngrășăminte chimice în agricultură 


n te VEEDAITIL pei 7 Da eee PE 


11.13. Optimizarea consumului de îngrășăminte chimice 


in agricultură 


12% 


Se porneşte de la funcţiile de producţie pentru terenuri irigate şi neirigate + 
Ynro =Koaot Ka14N—Kaa2dN? 
Yen =a0tadAN—a2dN?2 


unde 3 


ci este doza de îngrășămînt la hectar 
a, sînt parametrii funcției de producţie 


„..v 
pi 


10 
20 
30 
33 
40 
30 
93 
60 


+ sînt coeficienţi de multiplicare 


PRINT * CONSUMUL DE INGRASAMINTE 
PRINT * CHIMICE IN AGRONOMIE * 

PRINT * DATI PARAMETRII AO,AL,A2 
PRINT * A FUNCTIEI DE PRODUCTIE * 
INPUT AO,A1,A2 

PRINT * DATI COEFICIENTII KO,RKI,k2 * 
PRINT * DE HULTIPLICARE * 

INPUT KO,K1,k2 

NI » A1/(2RABS(A2)) 

N2 » KRInA1/(2mK2mABS(A2)) 

N 2 N2-NI 

INITP 

PRINT AT(1,12p;* FUNCTIA DE PRODUCTIE 
PRINT AT(5,1);* Y(NEIRIG) = “; 

PRINT AOJee";A1;"xDN";A2;*x0N*2" 
PRINT AT(7,1);” YelRIGAT) s *; 


PRINT KOnA0;*+*;KimA1; “nDN" pR2NA2; *uDN*2" 
PRINT AT(9,1);*” DOZA MAXIMA DE NEIRIG = *: 


PRINT Ni 


PRINT AT(11,1);* DOZA MAXIMA IRIGAT «- *; 


PRINT N2 

PRINT AT (13,1); DIFERENTA + *:N 

Yi = AO+<+AInNI-A2x(N1*2) 

v2 2 KOxAO+KImAIeN2-kK2mA2x(N2*2) 

Y 2 Ya-Yl1 

PRINT AT(15,1);" MAXIM TEHNIC NEIRIG 
PRINT Y1 

PRINT AT(17,1);* MAXIM TEHNIC IRIGAT . 
PRINT Y2 

PRINT AT(19,1);* DIPERENTA * *;Y 

XI „ Y1-AO 

X2 = Y2-KO2AO 

X » X2-X1 

PRINT AT(22,1);* SPORUL MAXIM NEIRIG 
PRINT X1 

PRINT AT(23,1);* SPORUL MAXIM IRIGAT 
PRINT X2 

49, » INKEY * 

IF A9$ =. * * THEN 280 

JNITP 

VINDOU -10,N2+30, -10,Y2+10 

MOVE -10,0 

DRAU N2+30,0 

MOVE 0,10 

DRAU 0,Y2+10 

FOR l=2$5 TO 2SniNT((N2+30)/293) STEP 23 
HOVE 1',-50 

DRAU 1,50 

NEXT i 

0 = IÎNT(tY2+10)/1000) 

FOR 121000 TO 1000xINT(Y2xQ) STEP 1000 
MOVE -50,l 

DRAU 50,l 

NEXT 1 

A = 80 

B= A1 

CC» A2 

FOR ke. 1 T0 2 


C — Mioseceleulatesul pessonal aMIG — voL Il 
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490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
630 
640 
650 
660 
670 
680 
690 
700 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
2000 


MOVE 0,0 
FOR 1-10 TO 1O0»INT((N2+30)/10) STEP 10 
Y 2 A+Bnil-Cul"2 
DRAU 1,Y 
NEXT | 
A 7 KOxAO 
B = KinA!1 
C = K2mA2 
NEXT K 
MOVE N1,0 
DRAU NIi,Yi 
MOVE N2,0 
DRAU N2,Y2 
A+ INKEY$ 
IF A$ = * “ THEN 630 
REM * CITIRE CONSTANTE * 
READ A,B,C,D,E,F 
INLTP 
DIM M(10,2) 
MAT M 2ER 
2 2 10 
Xx20 
UINDOU -10,300, -30, 10000 
MOVE -10,0 
DRAU 300,0 
MOVE 0,-10 
DRAU 0,10000 
FOR 1 = 1 TO 180 STEP 25 
MOVE 1, -S59 
DRAU 1,50 
NEXT 1 
FOR 1=1000 TO 8000 STEP 1000 
HOVE -50,1 
DRAU 50,1 
NEXT 1 
FOR 2 = 10 TO 100 STEP 10 
X20 
GOSUB 2000 
U = 2/10 
MOVE xX,Y 
M(U,1) x 
M(U,2) = Y 
FOR X = 10 TO 180 STEP 10 
GOSUB 2000 
DRAU X,Y 
IF Y < M(U,2) THEN 1070 
M(U,l) = xX 
M(U,2) Y 
NEXT X 
M(Z,10) =N 
NEXT Z 
MOVE M(1,1),M(1,2) 
FOR 1 = 2 TO 10 
DRAU M(I1,1),M(1,2) 
NEXT 1 
STOP 
Q = Ax(Z2"D) 


2010 
2020 
2030 
2040 


V a Bu(Z*E)xx 

U a Cnm(Z*F)n(X"2) 
Y = Q+v-u 

RETURN 


2050 
2060 
2070 


DATA 36.1,17.11,0.796 
DATA 1.1087,0.11858,-0.60889 
END 


Be determină doza maximă de îngrăşămiînt pentru teren neirigat şi teren 


irigat. Se determină apoi 
două condiţii de lucru. 


maximul tehnic de producţie şi sporul maximi în cele 


Se vizualizează graficul funcţiilor de producţie în condiţiile de irigare 


gi neirigare (ccoord. x= 


doze de îngrășămint in kg/ha ; coord. y=producţia 


medie în kg/ha). Particularizind pentru funcţiile de producţie caracteristice cul- 
turilor de griu, avem (vezi liniile 2050 şi 2060 din program)a 


Y —36,1 NB110874.17,11 NB0,11858 AN—0,796 NB=0,60989 AN? 


În baza acestei formule se trasează graficul producţiilor medii de griu, 
în funcţie de notele de bonitare ale terenului agricol. 
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Modificarea liniilor 2050, 2060 permite calculul funcţiei de producţie 
pentru alte tipuri de culturi. 


11.14. Calculul volumului rezervorului de compensație 
pentru reţeaua de apă potabilă 


Variația consumului de apă pe parcursul unei zile se determină în baza 
debitului înregistrat la fiecare oră. Considerăm că alimentarea de la rețeaua 
de apă se face cu un debit mediu constant ; în acest caz, rezervorul de compen- 
saţie va trebui să acumuleze apa necesară consumului în orele de virf. 

Programul solicită mai întîi introducerea valorilor celor 24 de 
debite orare. Se determină apoi debitul mediu, pe baza formulei: 


1 24 
Dm = za 24 Di 


Rezultă volumul rezervorului de compensație : 
24 
Vr== $, (Di—Dm)*((SGN (Di—Dm)+1)/2) 
il 


Be afişează consumul mediu și volumul rezervorului de compensație. 


10 PRINT * REZERVORUL DE COMPENSATIE * 
20 DIM D(24) 

30 PRINT * DATI CONSUMURILE PE 0RE * 
40 dai INPUT D 


60 ZoR l=i Fu, 24 


90 X 2 X/28 

100 Va=0 

110 FOR 1 = 1 TO 24 

120 IF (D(1)-X) <2 O THEN 140 
130 V = Ve(D(1)-X) 

140 NEXT I 


150 PRINT ” CONSUM MEDIU *;x 

160 PRINT * VOLUMUL REZERVORULUI *:v 
170 STOP 

180 END 


11.15. Studiul unui filtru „trece-jos“ 


Fiind dat filtrul RC „trece-jos“ din figura 11.3, ecuaţia va fi 
U, (0)= Uz (t)+-RC-gE. 
Ecuația poate fi aproximată cu: 


U, (n)=Uz (n)-+ JE a [Uz (n)—Uz (n—1)] 


unde RC/At=1] este constanta de ul normată 3 îiltrului. Rezultă relaţia 
de recurenţă + 
U, (n) 


Uz (n) = + 


Uz (n—1) 
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R 


U1(t) C  U2(t) 


Fig. 11.3. Filtru RC „trece-jos“. 


Forma semnalului de intrare este definită în cadrul programului în liniile 
150— 180, obținindu-se la ieşire un semnal ca în figura 11.4. Programul solicită 
introducerea constantei de timp normate și a valorii inițiale a semnalului de 
ieșire U;. Se trasează graficul suprapus a celor două semnale, obţinindu-se 
diferite forme ale semnalului U2 în funcţie de constanta de timp T; regimul 
tranzitoriu poate fi observat cu ușurință pe grafic. 


10 PRINT * STIIDIUL PILTRULUL e 

20 PRINT * DATI CARACTERISTICA T e 

30 INPUT T 

40 PRINT * DATI VALOAREA INITIALA U2 * 
50 INPUT y2 

60  INITP 

70  VINDOU =10,50,-1,2 

80  HOVE 10,0 

90  DRAU 50,0 

100 HOVE 0,-t 

110 DRAU 0,2 

120 Ul =1 

130 MOVE 0,1 

140 FOR X = 1 T0 50 

150 IF SGN(X-INT(X/10)x10-S <= O THEN 180 
160 U1 0 | 


210 UV2 = Ut /(îi+T)+(T/(1+T))xU2 
220 TRAW X,U2 
230 ICVE X,U1 


240 NEXT X 
70 Top 


Fig. 11.4. Semnalul la ieşirea filtrului „trece-jos”. 


11.16. Calculul salinității unui canal de ecluză 


Programele rezolvă determinarea salinității apei într-un canal de ecluză 
ce leagă două ape cu salinităţi diferite. Se introduc datele iniţiale şi în diferite 
ipoteze de lucru se obţine numărul de ecluzări necesare. 
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S$ PRINT “PNGRMI1” 

10 REh.O CALCULUL SALÂNITATII CANALULUI" 
35 REM IPOTEZA 1 n DIFERENTA Va 0* 
20 REm *CIȚIRE DATE INITIALE” 

36 READ C1,C2,C3,D,hiipHo,A,vV,t 

35 REKR PCALCUL COEFICIENI]” 

40 DisD/v 

S$9 DaaD/(AnsHţ) 

69 D3aD/(An(HieHa)) 

65 REM PCCNSTANTE» 

70 Xxat-D3 

990 Yal=vbe2 

90 231/(Xav) 

95 REM SSALINITATE ADMISA SA 8 e 8* 
190 AzCî1at1+2)+02/xX3C3a(lo03aY)a2 
110 Ba(C3aCaeCia(DanC2+D03eYaC3))az 
120 KaA/2 

139 OsKakeB 

22w SEkKeSQR(D) 

225 REM "SALINITATŢE ÎNITIALA SA 3 a Me 
230 WeDanCa+SnxaY+D3aYVaC3 

239 REM “ADINCIMEA REMANENȚA? 

2uu HzXa(SoCi)/(CooCt) 

205 REM “VARŢATIA SALINITATII” 

aSt N=o 

260 I=C1 

279 maci 

280 N=N+i 

290 VsHa(le)/Xer 

%v0 ]zDasCo=D>aYa(Voh)ovet 

310 HaDiavelieDi)nan 

319 REM “VERIFICARE LIMITE"»* 

320 IF 1>=M=E THEN 369 

330 IF V>=3=E THEN s60 

340 IF wW>=C3v.E THEN 363 

359 G0T0289 

360 PRINT * NUMARUL DE ECLUZARI "N 
370 3T0P 

375 REM "DATE INIȚIALt* 

380 DATA v.,15,17,0,5 

390 DATA c100g,7,9 

40p DATA 890990,360,9E6 

010 DATA 6.21 

3660 EN 


$ PRINŢ “PP RGR 2" 

10 REM “CALCULUL 3ALINITATII CANALULUI? 
1S$ REM “IPOIEZA 2 2 DIFERENȚA vV > 0* 
29 REM "CITIRE DATE INITIAL” 

39 READ Ci ,Ca,Cs,0Dentle to, A.Vi,Vvae,t 
3S REM “CALCUL COEFICIENTŢ]” 

49 0i:i=0/vi 

S9 0230/(AaH1) 

69 0320/(An(HieH2)) 

6$ 0aq=va2/vi 

70 DSe(ieDa)alleba3 

72 REM “SALANITATE ADMISA 3 A Sa 3» 
79 S2((1=DS)ac3=DanCi)/(Dint(i»Da)) 

60 Siz022C2+Ş3a(la)2) (1-D3)+D3e(ieDa)aC3 
90 Ra((ijeuS)al(i=D3)an(C3eC1)9)/(VintleDa)a(CaoCi))> 
9$ REM “VARIATIA SALINITAII]” 

190 N=0 

110 Isca 

120 W1=Ci 

125 Nast: 

130 N=Nei 

180 V=Ra(l=42)/(1.593)+H2 

150 I=z02aCo-D3a(i-Do)a(Von2)+vatlev2) 
1600 hotie Da)aDilny+DSaw]sDaata 

170 MIZDIanVeli“Di)awa2 

175 REM ? VCRIFICARE LIHITE" 

184 IF N<1op THEN 130 

185 ]F ]>=Siet THEN 220 

190 IF v>=9=E THEN 226 

200 IF ma>=C3-€ TIIEN e209 

205 GOTO 139 

210 REM "AJUNS LIMITA" 

229 PRINT 1i,],v,h 

230 stoP 

290 RE! "UATE INI(JALE" 

310 OATA 21020,7,2 

320 DATA 8000,30,0£6,12,0E8 

330 DATA v.9i 

380 END 
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S PRINT "PRGRM 3" 

10 REM "DISTRIBUTIA SALINITATI? IN CANALE 
15 REM "IPOTEZA i a DIFERENȚA ve 6" 
29 REM “CITIRE DATE INITIALE» 

39 READ Ci,Ca,C3,D,Hi,Ha,A,VeL,T,VI,E,NI,Na 
35 REM “CALCUL COEFICIENTI" 

89 DijnD/v 

85 D2=D0/(AnHl) 

Se 03aD/(An(Hi+n2)) 

55 Dizsi/vi 

60 Dba0â/ț 

65 DIM K(250),L(250) 

70 Y&ieDa 

60 X2it+-03 

90 2=3/(xXaY) 

9$ REM "SALINITATEA AOMISA ÎN SA 3 n 30 
1400 AsCin(1+237+C2/x+C3n(l-D3aYr)a2 

110 Bs(C3eCa-Cia(boaC2+D3nvac3))az 

129 uazA/2 

136 MaUnU=8 

290 S2UoSuR(M) 

220 REM "3ALINITATEA INITIALA SA 8 e m” 
230 MeDanaCa+SaXaY+D3nvaC3 

235 REM "ADINCIMEA REMANENTA 3 H2 

209 tHaxa(3ac1)/(CoeCt) 

245 REM “VARIATIA SALINITATI]” 

250 Jzi 

260 iinp 

2760 HAT KzZER 

280 MAT LazER 

290 I=C2 

306 Wzfi 

310 Natiei 

329 V=Hel(]ori)/X+uW 

330 IlaDanCaeD3eYta(Veon)oevay 

306 jiaDinVel(1=Di)a 

350 IF N<N3 THEN 310 

360 N(])avy 

370 L(J)z=un 

360 J2J+i 

399 IF J<aDS THEN 310 

490 walL($) 

919 uz 

420 FOR Jz2 170 05” 

430 lzL(Jeid)ec(D/(va(DSeJei)))a(K(J)on) 
440 IF M<U IHEN 455 


450 Uan > 

455 uaL(J) 

460 riEXxT J 

465 REM "TIPARIRE VARIATIA MAXIMA* 
470 PRINT U 


475 REM "VERIFICARE LIMITA? 
460 IF U>C3=E THEN Si9 
490 lii=Ni+N2 

900 GOTO 2Sv 

510 STOP 

590 REM “DATE INITIALE? 
660 DATA 0,15,17,6.9$ 
010 DATA 21900,7,9 

626 DATA t090,36.0E6 
630 DATA 57000,3600,1 
640 DATA 0,01,400,100 
650 END = 


11.17. Calculul hidraulic al ecluzelor 


Programele determină caracteristicile hidraulice principale ale unei eclu- 
ze, funcţie de condiţiile de evacuare a apei. 


%.P 


Calculul hidraulic al ecluzelor 


Rinț “PPGRANSe* 
REA “CALCULUL HIORAULIC AL ECLUZELOR* 
REN REVACUARE ÎN BLEF. AVaL* 
REM "CITIRE DATE INITIALE» 
READ A3,H,A1,C3,Ri,Ti,A2,Ca,Ra,te,v,E 
Dzh 

1=0 
T=0 
1320 
15:20 
J=29 
L=0 
B3SO0P(ec29,81) 
ua=C2 
N=(A]/A3)aBeJ 
Uz (Ac /A3)aBaJ 
4120 
p=0 

239 

lsI+! 

Tel+J 

15 T>Ri THEN 219 
MstaJaC1/Ri 

Ule(LeM)/2 

L=M 

GOSUB ace 

GUTU 13e 

IF 13<>0 THEN 259 

vUlzCj 

GOSUb ave 

GUTU 13» 

L2Co 

TuzI3+lg 

Ms(TQotaJ)aC2/Ta 

U2z (Le+M)/e 

1z1-*1 

1=21+J 

IP 1>Ţa THEn 320 

L2M 

GUSUE uof 

GUTO 272 

u=C 
K=S39FCJ)oCteAlaba(1eJ-1Q)/(oe43) 
93ZCiaAlaoaSOR(R) 

9z0=P 

PhinȚ I,C3,uv 

l>l-t 

TsT+J 

IF 0>E THEN 330 

sTo» 

REL "SUbPRORAHM CALCUL LTERATIV SARCINA? 
R=NaRULaSun(uveP/0deDaUca3UuR(ne(DaP/2)) 
ÎF AB3thoP)<=e THEN qu$ 
P:R 

GOTu 40v 

PzR 

REM “DIFERENTA DE SARCINA? 
DzD-R 

REM “ucuslT AFLUENŢY 
QozudeAcanoaSGk(HeU) 

REM “GE5IT EFLUENŢ? 
Q3zUleAleiasQR(D) 

REM "vULUMUL EVACUATE 
X2(01+442)/2 

XaxaJ 

REM "SARCINA ECLUZA” 


500 Z=Z+X 
“$10 PRINT 1,Z,Q2,Q03,Ca2,D 


Qisue 


"$30 IF Z<z 5,9av THEN 550 
Sug:T3zi 


RETURN 

REI4 "DATE INITIALA? 
DATA 20»0,1.79 

DATA 6,41,0.5,160,120 
DATA 8,75,0.65,362,120 
DATA 119069,0,01 

END 


135 
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S PRINT *PRGORM6* 

1e REM “CALCUL HIDRAULIC AL ECLUZEI* 

13 REM "EVACUARE ÎN BIEF AVAL“ 

20 REM PCUNDITIE STATIONARE 3 A 30 

25 REM “CITIRE DATE INITIALEe* 

30 REAO A3,n, Ale Ci sRisTieA2,Ca,v,.E 

89 0sH 

45. 1.0 

Se [aș 

SS 1320 

ce 1Sa0 

45 Ja226 

70 Lz0 

75 B3SQR(2n9,91) 

60 uasce 

85 Na(A1/A3)abaJ) 

90 Dza(A2/A3)aBaJ 

99 0129 

120 Pse 

105 Zao 

139 Icil+i 

149 T=T+J 

159 IF T>h1 THEN 219 

100 MzInJaC)/R1 

179 Uia(L+k')/e 

189 L=M 

199 sOSub 400 

296 50T0139 

210 viz=Ci 

215 uz?) 

229 CzQ3-Q2 

230 T3zT 

200 R=NaCin3UuR(u-P/a)oQaCoeaSQah rio (UoP/209 

250 O0O2Da=R 

260 Q3=CIaAlatiaSGR(0) 

279 Kz(03eC)/(AznBaSaR (H-0)) 

289 Cask 

299 PR 
IF ABS(13=-P)>E THEN 230 

310 GOSUB tus 

320 Izl+i 

33y T=1+J 

340 [F U2>E THEN 249 

350 Uzb 

355 R=3UR(U)=CinAlaba(IaJeT3)/(zuA3) 

360 Q3=CinAia3aSOR(R) 

365 Dz0eR 

379 PRINT 1,93,0 

375 [131-j 

3890 T=1+J 

385 1F U>E THEN 355 

399 stuP 

395 REM “"SUBPRUGRAM CALCUL ITERATIV SARCIudA? 

400 RzNaUln3R (Var /2)oO0aU2a36R (he(D-P/2)) 

410 1F AB3(a-p)<zE€ THEN 49 


449 P=R 
auS REM "DIFERENTA DE SARCINAD 
450 Dz=DoR 
455 REM "DEnIT AFLUENŢA 
960 U2zU2*A2aBASQR(H-v) 
265 REM "DEBIT EFLUENTY 
u70 C3=UiRAlaB+SCR(D) 
475 REM *VOLIUMU, EVACUAT? 
480 x=(01+02)/2 

490 xzXaJ 

495 REM “SARCINA ECLUZA» 
509 7=7+%X 

510 PRINT 1,2,02,43,C2,0 
526 012042 

530 RETURI 

5990 REM "DATE INIȚIALE» 

Ceo DATA 2990,1.,75 

610 DATA 6.91,0.5,180,129 

620 DATA 8.75,0.65 

039 DATA 11900,0.04 

649 END 


S PRINT '*PRGRM?»* 


120 
105 
130 
435 
130 
135 
180 
185 
150 
14 Ss 
160 
165 
179 
475 
180 
185 
190 
195 
200 
205 
210 
215 
220 
230 
235 
240 
245 
259 
ass 
260 
265 
270 
275 
280 
2%0 
300 
310 
329 
330 


REM “CALCUL HIDRAULIC AL ECLUZEL* 
REM “EVACUARE ÎN BAZIN SUBTERAN* 
REM “CITIRE OATE 1iTIALtE” 
READ A3,rii,Ha,2,H,SeCpAt Ci ,Ri,TipAa,Ca,Ra,ta,v,€ 
REM “INITIALIZARI* 
Dianj 
lue 
130 
13a€ 
1589 
J320 
L20 
Ba80R(22v,.81) 
Xe9 
Na(A1/A3)a8eJ 
Oz (A2/A3)aBeJ 
Qis0 
P=0 

H1aH10h202 

Fa 

Da=H2 

2=0 

13l*! 

T=T+J 

1F 7>RÂ THEN 200 

MelaJaC1/Rj 

Uiz(L+m)/a 

L=M 

1F 1>R2 THEN 390 

valaJaCa2/R2 

V2=(X+Y)/a 

xy 

GO3UB 8290 

G0T0132 

U2=C2 

G0T0189 

IF 13<>0 THEN 230 

VizCi 

Vasca 

GOSUD 899 

6070130 

zC2 

1u=13+t2 

ve (TuelaJ)aCca/T8 

Vaz(XrY)/e 

Jel+i 

T=T+J 

IF 1>Tu THEN 289 

x=Y 

GOSUB 86 

6070243 

U=01 
R=SQR(U)oCiaAlaBa(la3-T8)/(2mA4A3) 
Q3zCinâiaBaSUR(R) 

DieDieR 

PRINT [,03,01 

I=1+i1 

T=1+J | 

1F D1>E THEN 293 

310» 

REM "SVBPROGRAM CALCUL ITERATIV SARCINA” 
RaN=UlaSQR (Di-P/a2)eUnxU2aSQR (Hio(Di-P/2)a(Deef/23). 
w= (HeCe(2aD02+F) a (SeCa(2aD2+F)) 
GZU2RA2aBaSUR (Hlo(Dlep/2)o(vaeF/2))aJ/h 


IF ABS(PoR)<sE THEN ââv9 

PR 

FzG 

0070 432 | 
PaR 

FzG | 

REM »DIFEREinTE DE SARCINA" 
Ciadi-R 

Dazba2=6 


REM “UEBIT EFLUENIY 
Q33 UieAteBaSOaR(Dl) 
REM "DESIT AFLUENT? 
2zUz th 2aBa359R (Hlo0leb2) 
REM FVILUM EVACUAT" 


5 ms tfdl+92)/2 


HikaJ 
st RSARCINA ECLUZAY 
2rI7+k 


+ PRINT 142p,02,03,C2,0Di 


7c=09V THEN 589 
Z 


RETURN 


CATA 2090,1,75 


DATĂ 8415 0.,5,180,120 
DATA 8.7520,05, 36,120 
D:TA 149c010.01 

ZID 


Capitolul 12. | Microcalculatorul personal aMIC 
în procesul de învățămînt” 


Încercările mai vechi de utilizare a calculatoarelor în procesul de învă- 
țăm nt s-au bazat pe folosirea terminalelor de tip display, cuplate la un calculator 
central. Deși utile, sistemele nu s-au extins în învățămîntul liceal, chiar în 
ţările avansate industrial, datorită costurilor lor ridicate. 

Apariţia calculatoarelor personale permite abordarea acestei probleme de 
pe noi poziţii, deoarece aceste calculatoare pot fi folosite de către elevi, atit 
în şcoală, cît și la domiciliu. Facilitățţile hardware și software de care dispun 
calculatoarele personale permit cuplarea lor la un calculator central, dotat cu 
o bază de date (cunoștințe). În acest context asistarea procesului de învăţăm înt 
de către calculator capătă noi dimensiuni. 

za 


„i 


12.1. Modalităţi de integrare a calculatorului în procesul de pre- 
dare-învăţare, locul și rolul acestuia în asistarea procesului 
de învățămînt 


Asistarea procesului de învățămint cu calculatorul. Această problemă 
este de dată recentă, dar de mare perspectivă şi cu consecinţe pozitive 
pentru optimizarea predării-învăţării, pentru integrarea învăţămîntului cu 
cercetarea, cu producţia, cu viaţa. 

Este cunoscut faptul că în ultimele două decenii, colaborarea dintre 
informaticieni, constructori de calculatoare şi specialişti din domenii ale instruc- 
ţiei şi educaţiei a permis iniţierea unor programe concrete privind folosirea 
calculatoarelor în procesul de învăţămînt. Ca urmare, au fost concepute, reali- 
zate și perfecţionate variate limbaje de programare, cu ajutorul cărora să se 
poată edifica autoinstruirea automată, să fie prezentate la clasă lecţii, ori 
secvenţe ale acestora, în sprijinul optimizării procesului de predare-învăţare. 
În consecință, psihopedagogiei i-a revenit sarcina edificării unei metodologii 
care să asigure eficienţa asistării procesului de învățămînt cu calculatorul. 

Conceptul de asistare cu calculatorul a procesului de învățămînt include 
atît predarea cu calculatorul a unei lecţii de comunicare a noilor cunoştinţe, 
de aplicare, de consolidare ori de sistematizare a acestora, cit și verificarea 


* Cu orientare spre învățămîntul mediu. 
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automată a unei lecţii sau a unui grup de lecţii, a unei anumite discipline şco- 
lare la finele unui trimestru sau an şcolar, a unei anumite programe şcolare 
în cadrul examenelor de absolvire sau de admitere. Tot în cadrul „asistării“ 
este inclusă și prezentarea sau verificarea cu calculatorul a unor secvenţe ale 


lecţiilor desfășurate după metodologia clasică. 
Calculatorul devine un auxiliar al procesului de învăţămînt. 


Tehnica instruirii cu calculatorul. Instruirea cu ajutorul calculatorului 
se realizează îie în cadrul aşa-ziselor „clase automatizate“, în care lecţia se deru- 
lează secvenţă cu secvenţă pe ecranul de la pupitrul fiecărui elev, fie în cadrul 
laboratoarelor de matematică — mai ales, pentru prezentarea de la catedră, 
prin intermediul ecranului, a unor secvenţe ale lecţiei clasice. O clasă automati- 
zată dispune de un calculator şi mai multe terminale (în jur de 39) care recep- 
ţionează mesajele pe ecranul individual. să 


Predarea lecţiei prin intermediul ecranului se realizează printr- o succe- 
siune de imagini, numite „imagini-ecran“, care afişează lecţia, derularea lor 
fiind dirijată de către profesor — în concordanţă cu normele psihopedagogice 
ale procesului de instruire la vîrsta şi în cadrul obiectului predat. 


"Instruirea cu ajutorul calculatorului se poate însă realiza şi în afara 
schemei clasice a procesului de învățămînt. Elevul, studentul, sau orice altă 
persoană interesată poate beneficia, într-un anumit cadru, de posibilitatea 
autoinstruirii automatizate. Aceasta se realizează fără profesor, activitatea sa 
fiind însă materializată în lecţiile afișate pe ecran. Dialogul între mașină şi 
cel care învață singur se realizează cu ajutorul unei console legată de calculator, 
aceasta fiind construită dintr-o claviatură alfanumerică şi din ecranul semnalat 
mâi Sus. 

Lecţia, sau grupul de lecţii, sint stocate în memoria calculatorului şi cu 
ajutorul seitware-ului sînt afișate treptat, imagine cu imagine, pe ecranul 
consolei, furnizind astfel materialul de învăţat. 


"În cadrul acestei instruiri elevul își poate regla singur ritmul de afişare 
a imaginilor pe ecran ; el îşi poate întrerupe pregătirea în orice moment al lec- 
ţiei, reluind-o de la secvenţa la care s-a oprit, pe baza „recunoașterii“ sale de 
către calculator. Această posibilitate de „recunoaştere“ permite folosirea în 
timp a aceleiași lecţii de către mai mulți elevi. 

Pr În lecţiile predate cu ajutorul calculatorului sînt prevăzute și exerciţii 
de control, răspunsurile putînd fi adeseori selectate dintr-o listă de variante 
afișată pe terminal. Metoda folosită în acest caz este, oarecum, similară învă- 
(ămîntului programat. În cazul că lecţia urmărește testarea cunoștințelor, atunci 
fiecărei imagini-ecran i se asociază una sau mai multe întrebări. Răspunsurile 
la întrebări sînt cotate cu un anumit punctaj, acesta depinzind de calitatea 
răspunsului și de timpul în care a fost dat. 


ni îti dialogul dintre mașină şi cel care învaţă se foloseşte și funcţia de 
„help“ a calculatorului. Prin aceasta sînt puse la dispoziţia utilizatorului, sub 
formă de imagini-ecran, comentariile şi explicațiile necesare integrării şi însuşirii 
corecte a unor noţiuni — fără de care lecţia nu poate continua. Evidenţiem, 
cu acest prilej, „posibilitatea“ maşinii de a detecta imediat eroarea în în- 
suşirea unei secvenţe a lecţiei și de a facilita remedierea acesteia prin comenta- 
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riul făcut şi indicarea informaţiilor suplimentare necesare continuării instruirii. 
Cel care învaţă poate trece la secvenţa următoare a lecţiei numai dacă a răspuns 
corect la întrebările sau exerciţiile propuse, interacţiunea dintre utilizater şi 
sistem realizindu-se permanent pe bază de dialog. 


Calculatorul didactic poate fi înzestrat și cu „posibilitatea“ de a memoriza 
performanţele celui ce învaţă : timpul necesar pentru răspuns, nota obţinută, 
întrebările la care frecvenţa răspunsurilor slabe este mare ctc. În acest mod sînt 
furnizate fie elevului, fie profesorului, o serie de date pedagogice individuale, 
sau caracteristice unei anumite populaţii școlare, care sînt necesare optimizării 
acestor programe şi lecţiilor recapitulative sau de control curent ce se vor 
organiza. 

Consecințe pedagogice ale asislării lecţiilor cu calculatorul. Folosirea calcula- 
torului în şcoală oferă învăţării lecţiei noi posibilităţi de dezvoltare și de eva- 
luare. Așa, spre exemplu, prin intermediul consolei pot fi simulate pe ecran 
procese și fenomene în evoluția lor, unele experienţe greu accesibile laboratoa- 
relor şcolare fie datorită costului lor prea ridicat, fie pericolelor existente, 
protecţiei muncii și a mediului înconjurător, fie depărtării acestora în timp 
sau în spaţiu etc: 

Ca o nouă componentă a tehnologiei învățămîntului, folosirea calculatoa- 
relor în munca instructiv-educativă va lărgi aria de posibilităţi şi de funcţionali- 
tate a laboratoarelor şcolare, în beneficiul tuturor disciplinelor de învăţămînt 
care folosesc tehnică de calcul sau de reprezentare. 


Cu ajutorul calculatorului poate fi optimizat randamentul predării prin 
prezentarea cu ajutorul ecranului a unei largi varietăți de exemple sau de mo- 
dele asociate unor secvenţe ale lecţiei. Toate acestea concură la adîncirea sau- 
lărgirea orizontului noţiunilor predate, adeseori extrapolîndu-le dincolo de obiec- 
tul predat : în tehnică, în economie, în știință, în practică etc. În acest mod 
s-ar putea vorbi despre o „dilatare“ a sferei aplicative a noţiunilor predate, 
precum şi de o „comprimare“ a timpului necesar însușirii şi aplicării creatoare 
a noţiunilor ştiinţei. Acest aspect poate conduce la stimularea inventivităţii 
și aplicativităţii, a spirirtului participativ şi anticipativ al celui ce învaţă. 

Folosirea calculatoarelor ca mijloace de învăţămînt va avea, desigur, 
consecinţe importante asupra formării intelectuale a tinerelor generaţii in 
spiritul autoeducaţiei — și, prin aceasta, al educaţiei permanente. În această 
activitate formativă vor fi stimulate toate componentele gîndirii logice în 
sens larg: gindirea logico-deductivă, inductivă, analogică, ...cu accent pe 
gîndirea euristică. Va fi astiel stimulată mai bine şi problema orientării profe- 
sionale a tineretului, capacitatea acestuia de reciclare rapidă pentru sectoare 
de muncă „înrudite“ profesional. Fireşte, pentru atingerea acestui ţel, considerăm 
că nici disciplinele tehnologice şi nici atelierele-școală, prin și în care elevii 
trebuie să 'nveţe să producă la nivelul tehnicii contemporane, nu trebuie să 
rămînă în afa a folosirii calculatorului şi a tehnicilor de calcul ale producţiei 
moderne. Prin aceasta s-ar putea realiza mai bine și componenta tehnică a edu- 
caţiei multilaterale a personalităţii umane. 


Desigur, progresele realizate astăzi pe linia dezvoltării și a ieftinirii circui- 
telor integrate, între care microprocesoarele ocupă un loc important, vor per= 
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mite construirea pe scară tot mai largă a unor echipamente așa-zise de ''uz 
personal”', numite și calculatoare personale (individuale). Acestea pot [i folosite 
şi în procesul de învățămint, intrind — pentru început — în zestrea labora- 
toarelor de matematică (de ex.), în calitate de auxiliar al predării, al verificării 
cunoştinţelor, ..., al învăţării. 

Dar pentru integrarea calculatorului în familia mijloacelor de învăţămînt, 
profesorului i se cere să stăpinească, în afara specialităţii sale, un volum apre- 
ciabil de cunoştinţe din domeniul informaticii, un limbaj de programare a lec- 
ţiilor sale, cum şi o mare varietate de tehnici pentru realizarea desenelor și a 
exerciţiilor din lecţiile sale curente, de sinteză sau de control etc. Se între- 
zăreşte de aci necesitatea acestor cunoştinţe, cum şi a unor deprinderi tehnice, 
în pregătirea generală a întregului personal didactic din învăţăm întul secundar. 
Acestea se pot obţine pe baza unor programe speciale, atit în pregătirea uni- 
versitară a cadrelor cît și în perfecţionarea postuniversitată. Mai mult, pentru 
folosirea calculatorului va fi necesară o pregătire generală a întregului tineret 
— în cadrul noilor programe ale învăţămîntului liceal. Fireşte, este necesar 
ca — în perspectivă — să dispunem de limbaje de programare foarte simpli- 
ficate, ameliorînd astfel eforturile utilizatorilor pentru însuşirea lor. 


Ţrebuie recunoscut că nici pentru elev nu este chiar atit de simplă și de 
ușoară pregătirea individuală cu ajutorul calculatorului. Şi acestuia îi este mai 
uşor dacă poate primi cunoștințele în limba sa proprie, dacă poate ''conversa'” 
cu mașina într-un limbaj natural — nu artificial. În plus, mașina care serveşte 
autocducaţici automatizate nu poate dispune de prea multe mijloace pedavo- 
gice, în afara celor ce decurg din evidenţierea reușite; la 'nvătălură, -au a 
semialări! “isuceesului si tr .niterea la întrebări și materiale "jutătonre. 

ste de apreciat faptul că, insuşindu-şi cunoștinșe în faţa coiusolei, elevul 
invaţă singur și sigur, adescori în ritm optim propriu, fără emoţii şi fără pertur- 
bări ale comportuiuentului de către diverșşii factori legaţi de mediul său încon- 
jurător. EI este scutit de emoțiile care apar atunci cînd se vede urmărit” de 
către profesor, sau de către colegii săi de clasă (deşi, aceste emoţii pot avea 
frecvent „i un rol pozitiv asupra personalităţii sale). 

De asemenea, în faţa consolei elevul primește obiectiv și cu optimism 
„nota“ acordată răspunsurilor și deci pregătirii sale ; învaţă de aici să-și apre- 
eicze calitatea şi durata pregătirii, performanţele atinse şi, mai ales, învaţă 
să-și mobilizeze resursele de energie și de voință pentru o nouă calitate a 
muncii sale. 

După cum se vede, științei învăţării i se circumscrie un nou domeniu în 
care cercetarea pedagogică interdisciplinară va fi solicitată foarte mult. Absența 
acesteia poate frîna accesul calculatoarelor în domeniul învățămîntului. 


Încă de pe acum au apărut o serie de întrebări în legătură cu aşa-zisa 
“înstrăinare'”' a individului ca urmare a unui învățămînt automatizat. 


Noi considerăm că un învățămînt complet automatizat nu poate exista, 
problema ”' înstrăinării”' pierzindu-și astfel suportul pe baza căruia a fost lansată. 
Practica va fi, desigur, în favoarea folosirii tehnologiilor celor mai avansate 
și în domeniul învăţămîntului, atît dezvoltarea tehnicii cit şi a ştiinţei educaţiei 
fiind strîns legate de dezvoltarea întregii societăţi. Or, societatea contribuie 
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nu numai la umanizarea tot mai înaltă a personalităţii umane, ci şi a tehnicii, 
a matematicii chiar, a mijloacelor de învăţămînt și educaţie. Mai mult, există: 
şi o întoarcere “'reflexivă : tehnica, matematica, ...,au la rîndul lor un rol 
tot mai mare în umanizarea omului. 


12.2. Modele de lecţii sau secvenţe ale acestora pentru instruirea 
asistată de calculator (ILAC) a matematicii în liceu 


me--- 


rr Tema. Rezoliarea sistemelor de d două ecuații de gradul 1 cu două necunoscute (lecţie de reca-. 
BE tat $” pitulare” ținută în laboratorul de o paleta el ce) Icaute clasei a TĂ-a) i eul 
00.7 CRAI ae Pa PI OTE aa m ac AG E 7 URI 
i coastă lecţie : se naâteste ca elevii să "ajcătuiascățcorect programul de 
rezolvare a unui sistem de două ecuații de gradul I cu două necunoscute şi: 
schema logică a rezolvării sistemului ; de asemenea, ei trebuie să se convingă 
de necesitatea folosirii calculatorului la rezolvarea unor sisteme care necesită 
un volum mare de calcul. 


1* Programul de rezolvare.a sistemului. 


Pe baza recapitulării cu clasa, a principalelor noţiuni și metode privind 
rezolvarea sistemelor de două ecuaţii de gradul I] cu două necunoscute, se sta- 
bileşte programul de rezolvare a sistemului 


A-X+B-Y=C 
D.X+E.Y=F. 


Astfel se notează: M=A.-E—B.D, Ml=C.E—F.B, MD=A.Fr—C.D şi 
se face discuția de mai jos: 

dacă M=0 şi M1z0, atunci sistemul este incompatibil ; 

dacă M=0 şi M1 =, atunci sistemul este compatibil nedeterminat Şi are 
o infinitate de soluţii; 

dacă Mz0, atunci sistemul este compatibil determinati şi are soluţiile 


- a > Pe s E i) 3 - i Tica. 
fi + PP: e a zu bi d , atcă | 
[5 n i "x 4 ca a Mc LUT 
pe E mru i E -- —— .3: m şi: Na N Sad 
otet Dl e RR Ioan OA = tz oz Saad au. nt Aaga 
o PE: 
2*. Schema logică] 


În perspectivă, noile programe de matematică vor beneficia — probabil 
de noţiunile privind schema logică, încă din clasele VII—VIII. În acest caz, 
ţinind seama de program, se va alcătui cu clasa schema logică a rezolvării 
sistemului. A 


Observaţie. În cazul că programa nu prevede noţiunea de schemă logică, se va 
trece la rezolvarea unor sisteme de ecuaţii, verificîndu-se soluţiile 
cu calculatorul. (fig. 12.1) 
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SCRIE „SISTEM 
COMRATIBIL_, 
EDE TERMINA 


Fig. 12.1. Organigrama rezolvării unui sistem de două 
ecuații cu două necunoscute. 


3*. Programul în BASIC 


1 INITP 80 X=M1/M 
5 PRINT "REZOLVAREA UNUI SISTEM 90 Y=M2/M 
DE” 100 PRINT ''SOLUŢIILE SISTEMULUI”? 
10 PRINT ''DOUA ECUAȚII CU DOUA”! 110 PRINT "X=",X; 'Y=",Y 
15 PRINT ''NECUNOSCUTE” 120 GO TO 189 
20 PRINT "'A*X+B*Y=C; D*X+E*Y=F'' 130 IF Mi< 9 THEN 166 
30 INPUT A,B,C,D,E,F 140 PRINT ''SISTEM COMPAT. NEDETER-- 
40 M=A*E—B*D MINAT”! 
50 M1=C*E—F*B 150 GO TO 189 
60 M2=A*F—C*D 160 PRINT ''SISTEM INCOMPATIBIL” 
70 IF M=9 THEN 130 180 END. 


4*. Aplicaţie pe calculator 
Se cere rezolvarea sistemului : 


5,625x4+375y =721,891 
105x+4+3,25y =163,9348 


Practic, o parte din elevi vor da soluţii greşite în rezolvarea acestui sistem: 
Soluţia este: x =—1,5024 ; y=1,9024 
Se trece apoi la rezolvarea cu calculatorul a sistemului. 
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Calculatorul „aMIC*” oferă soluţia : x=—1,50239; y=—1,90239. 

În final, profesorul se va opri asupra unuia din obiectivele acestei lecţii 
de recapitulare şi anume acela al necesității alcătuirii schemei logice—ca dovadă 
a unor priceperi și deprinderi trainice în rezolvarea sistemelor de două ecuaţii 
cu două necunoscute. De asemenea, pe baza rezolvării ultimului sistem, elevii 
se conving că este necesară folosirea calculatorului pentru rezolvarea unora 
din sistemele cu coeficienţi mai „complicaţi“. Ei vor fi solicitaţi să ofere calcula- 
torului, spre rezolvare, o serie de sisteme compatibile sau incompatibile, să 
compare timpul lor de rezolvare cu timpul necesar calculatorului etc. Pe această 
bază apare şi dorinţa însușirii unui limbaj de programare în vederea accesului 
lor lu silculatorul școlii. 


"ema. Funcția (secvență dintr-o lecție de sinteză de la finele clasei a IX-a — ea poale sersi 
ca o lucrare de control al cunoștințelor recapilulate). 
Prin intermediul consolei se proiectează pe ecran funcţia 


:(—5,6] = (—4,4] 


al cărei grafic este dat în figura 12.2 şi se cere să se scrie ; 
1”. mulțimea valorilor funcției ; 
$*. lungimea fiecărui segment al figurii (in ordinea de pe figură) ; 
3”. panta fiecăreia din dreptele ce conțin segmentele figurii (in ordine) | 
4”. ecuațiile dreptelor ce conțin segmentele figurii (în ordine) ; 
$. dacă funcţia este injectivă sau surjeclivă ; 
6*. mulțimea valorilor argumentelor pentru care se anulează funcția j 
7”. mulțimea valorilor argumentelor Pentru care f(x)> 0 (respectiv f(x)<0) 1 


8. mulțimea pentru €are funcţia este strict crescătoare (respectiv sirict descres- 
cătoare) ; 


9". reprezentarea În acelaşi sistem a funcțiilor date de y=" ft ' şi V=— 
=——" fat, , unde f este funcţia dată inițial. 


B(- 2-a) y 


E (6,-2) 


A(-9-4) | 
Fig. 12.2. Funcție dată sub forma grafică. 
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Obserraţie. Pentru fiecare din Întrebările puse (exceptinj 9") sint atașate cite două răs- 
punsuri din care unul este corect și nu prea greu de sesizat. Pentru (9*), explicaţiile suplimen- 
tare conțin trei sisteme de axe de coordonate : primul reprezentind y==f (x) şi y= |î(x)|, al 
doilea pentru y=f (x) și y=—|f (x) |, iar al treilea conține toate cele trei grafice în ordine 
(linie plină, punctat și liniuţe). Elevul îl subliniază cu o linie pe cel corect și predă lucrarea 
profesorului. În tema de acasă, elevul trebuie să răspundă la întrebările de mai sus, motivind 
care sint elementele de care n-a ţinut seama în cazul răspunsurilor incorecte. Acest mod de 
lucrn îl va stimula să înţeleagă funcţia de „help“ a calculatorului, construind el însuși „comen- 
tariu! și trimiterea la material auxiliar“ .... 


Tema. Funcţii pulere de forma 
t:R —R,(tx)=x",neN 
şi funcții putere de forma ! 
1: RN(8) =R, t(x)=x", nezZ. 


( heluăm o secvență din prima parte a unei lecţii de sinteză de la finele clasei 
a IX-a, sau de la începutul clasei a X-a. Calculatorul este folosit aiei de către 
profesor pentru antrenarea gindirii „producline“ a intregii clase). 


1*. Prin intermediul consolei vor fi proiectate pe ecran citeva grafice 
corespunzătoare lui n e (0, 1, 2, 3, 4, 57, în două etape: 

1*. Cazurile particulare (pentru n40 și pentru n=l): 
(n ==0= [(3)=1)— dreapta de ecuaţie y=l, paralelă cu (Ox), figura 12.33 
(n = = î (009)=—x) — dreapta de ecuaţie y=x, bisectoarea I, figura 12.4; 

Se reţine de aici ideea că graficele trec prin punctul P (1, 1). 


Fig. 12.5 Fig. 12.6 Fig. 12.7 Fig. 12.8 
Fig. 12.3. Funcţia y=1. Fig. 12.6. Funcţia y=x:. 
Fig. 12.4. Funcţia y=x. Fig. 12.7. Funcția y=xf. 
Fig. 12.5. Funcţia y=x?. Fig. 12.8. Funcţia y=x*. 


„2%. În cea de-a doua etapă se proiectează graficele următoarelor funcţii : 
(i =2 = î (x) =x2) — parabole de ecuaţie y =x3, figura 12.5 
(n =3) = î (x) =—x5) — parabola cubică de ecuaţie y=z, figura 12.6 
(n :=4) = î (3) =—x%) — grafic de tipul parabolei, avînd ecuaţia y =xf, figura 12.7 
(n 5 = E (00=x5) — grafic de tipul parabolei cubice, avind ecuaţia y=xf, 

figura 12.8 
(in =2p. peN., p>1) = (f(x) =x%)) — grafic de tip parabolă, de ecuaţie y =x*%) 
(in =2p+i, peN, p>1) = (î (x) =—x22+5)) — grafic de tip parabolă cubică, de 
ecuaţie y=x2t1. 
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2. Comentarii ce se pot desprinde din analiza graficelor de funcţii 
î(x)=x", xeR, nenN. 

1”. Pentru orice n, n-natural, graficul trece prin punctul PI, 1), şi 
Aaa orice u, ne N“, graficul trece prin originea axelor, deoarece propozi- 
ţiile „0=0"* şi „1=1"“ sînt adevărate. 

E Dacă n este număr natural par (n=2p, p>0), graficul este simetric 
în raport cu axa (0y), deoarece: f(—x)= jo Duo 4 (x), funcţia f fiinc 
pară. Dacă M (a, b) aparţine graficului funcţiei f (x)=—x7%, xeR, atunci este 
adevărată egalitatea b=—a?P. De asemenea, este adevărată şi egalitatea b= (—a)2 : 
adică, M' (—a, b) aparţine graficului funcţiei date. Fiecărui punct de pe pru: 
fic M' (a, b) îi corespunde pe acelaşi grafic simetricul M' (—a, b) în raport cu 
axa (0y). 

3*. Dacă n este impar, n=2p+l, atunci graficul este simetric în raport 
cu originea axelor de coordonate 0 (0, 0). Avem: 


[ (—x) = (xp 2x21 <a (x), funcţia fiind impară. 


Dacă Ma, b) aparţine graficului, atunci este adevărată egalitatea 
b=—a2P+1 şi, de asemenea, egalitatea —b=(—a)%*! ; adică, M' (—a, —b) apar- 
ține praficului. Fiecărui punct de pe grafic M (a, b) îi corespunde pe grafi: 
simmetricul M' (—a, —b) în raport cu 0 (0, 0). 

4*. Graficul oricărei funcţii î:R— R, î(x)=x", n par, este simetric îi. 
raport cu axa (0y), iar pentru n>0 are forma similară parabolei funcţiei 
î (3)=x%, xeR (spre exemplu). 

Graficul oricărei funcţii f:R—R, Î()=>", n impar, este simetric în: 
raport cu 0 (0, 0) şi are forma similară graficului funcţiei î (x)=x". 


Observaţie. Pentru a verilica dacă noţiunile recapilulate, ale acestei sec- 
venţe, au fost însușite corect, secvenţa imediat următoare (fie că aceasta este 
derulată cu ajutorul calculatorului, fie prin metodele clasice obișnuite) ar 
consta din următorii paşi : 

3) Desenaţi, schematic, graficele funcţiilor date prin formulele y=-x* şi 
y=x', xXEeR şi scrieţi mulțimile de valori ale argumentului pentru care : a) func- 
ţiile sînt nule ; b) funcţiile au valori pozitive ; c) funcţiile au valori negativ-. 

ii) Pentru funcţia dată prin formula f (x)=—x15, xeR, comparaţi !(2) 
şi f (—2); găsiţi î (—a) știind că î (a)=—32. 

iii) Pentru funcţia dată prin formula f (x)=x!?, xeR, comparaţi f (3! 
și f (—3) şi găsiţi î (—a) ştiind că f (a)=52. 

IV) Fie punctul arbitrar M (a, — b) aparţinind graficului unei funcţii i. 
Dacă funcţia este dată printr-una din formulele y=x* sau y=x6 să se preci- 
zeze dacă punctele N (—a, b) şi P(—a, —b) aparţin graficului lui î. Evident. 
pentru acest ultim punct este necesar un mic comentariu. 


1ema. Logarilini (definiție şi proprietăți buzale pe definiție) — lecție de comunicare, realizut:? 
pentru  autoinstruirea aulomatizată. 


1. Noţiunea de logaritm. Să considerăm ecuaţia exponențială 


=N, N>0, a>0, azil. (1) 
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Se observă că ecuaţia (1) nu are soluţie pentru N<0, deoarece 


î:R— (0, oo), [(x)=a* 
are valori pozitive. 

Pentru N>0, ecuaţia (1) are soluţie unic determinată, aceasta de. 
curgînd din proprietatea de bijectivitate a funcţiei exponenţiale. În figura 12.5 
respectiv 12.10 este prezentată rezolvarea grafică a ecuaţiei ax=N, a>l (res- 
pectiv 0<a<1). 


<a a td 


| RI e RR 


Fig. 12.9. Graficul funcţiei ex- Fig. 12.10. Graficul funcţiei ex- 
ponenţiale a* =N, a>1. ponenţiale a* =N, DZ <a<l. 


Soluţia ecuaţiei ax=N, unde a>0, az! și N>0, se numeşte logarit mul 
numărului real pozitiv N în baza a. 

Prin definiţie, logaritmul numărului real poziliv N în baza a, unde au .-0 
și ax, este exponentul la care trebuie ridicată baza a pentru a obţine N. 

L.ogaritinul numărului N în baza a se notează „log, N“, se citește „lupu 
ritmul în baza a al lui N* sau „logaritmul lui N în baza a“ și se serie „x =-log, ÎN 

Conform definiţiei avem: 


l 
243 


D. 


logo 1G =—loga21=—4 ; loga =—l0g3 +) = loga 3-2 == 

Avem deci relaţia : logaa"=n. 

Din (1) şi (2) rezultă egalitatea: al =N, N>0. 

Dacă în (1) punem x=1, atunci al=a şi conform cu (2) avem relaţia: 
lOpaa =]. 

Dacă baza u este 10, atunci în loc de „logyj N“ se scrie „lg N“ şi seciteşte 
„logaritmul lui N în baza 10“ sau „logaritmul zecimal al lui N“ ; iar dacă bazu 
a este numărul irațional e=—2,71828 ... , atunci în loc de logeN se scrie „lnN” 
şi se citește „logaritmul natural al numărului N“. 

2. Aplicaţii privind folosirea definiţiei și a proprietăţilor bazate pe cu. 
(Pentru a nu mai prezenta răspunsurile și comentariile corespunzătoare lor, 
fiecare grupă de exerciţii începe cu un exercițiu model, rezolvarea celorlulte 
fiind analoagă modelului). 
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1*. Dovediţi că logs 23 =— 
R : Conform definiţiei, avemn : 5-5= 2 (egalitate adevărată) 
inȚacelași mod, să se arate că egalitățile următoare sînt adevărate 
) loga81=4; b) loga 2= ——; c) Ig = d) log =: 
1 


1 
[9] lOGg3, — =—--. 
9) l0ga x i 
') 


 v 


e) logyz8=6; î) log. 729 =—6 
Găsiţi numărul N, al cărui logaritm în baza 5 este egal cu — 

R : Conform definiţiei, avem log; N=—2 «N =5-2 «e N= 32. 

În același mod, să se găsească N știind că 

a) logsN =—2; c) lsN=—2 ; d) log N=3 


) losN=1,5; g) log N=—: h) loguN = —-; k) log22N=1,5 


; e) leN=0) 


p) loga N=—1; 


»30, Găsiţi baza a, a logaritmului numărului 64, dacă 10g,64 = 
1 3 A 
1 


r_i 
O Iu eu Na 
log,64 4 ee a-î=—64 o 1 =(64) (2%) i “27 


În acelașițmod, să se găsească baza a știind că 
| 6 
d) log, bt = aa 


b) l0g.,1000=1,5; c) log.27=—6; 


Da” 


a) log, 27=3; 
e) logaâ j2=—2,5; £) loga (973/3)=—-; 9) loga =: 
a 1 
h) log, V3= 
Găsiţi logaritmul numărului 8 în baza 2. 
RI: log „8—xel V2r=8 27 = Bee de x=t. Deci log 86. 
Înfacelași mod, să se determine numerele :] 
I 
a) loga; b) 190,1 : c) log. 25: d) log 27:€) loggp2 
: 3 
Îi 


() log, (8/2); 9) loga — . 


5”. Găsiţi valoarea expresiei 10! 12 

RR 31062 = 10 1 =12. 
“În acelaşi mod, să se găsească valorile expresiilor 
a)EI0-1 5: p) 1018100; c) 1015041; d) 1001; 
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. Cure din expresii are sens? 
a) log, 6; b) lg 001; c) (lg 09; d) lg(lg9,6); e) loss(—7P; 
„î) logs(—3); g) log, (—4)*; h) vlg25. 


7. Rezolvaţi ecuaţia logasx=—l 


R:logsx=—l xl x. 


În acelaşi mod, să se rezolve ecuaţiile: 


a) ai x=3 ; b) logo3x=2; c) loga (logs x)=0. 


12.3. Programe utile în procesul de învățămiînt 


În cele ce urinează se prezintă o serie de programe, care put îi utilizate 
in procesul de învăţămînt. Ele pot fi completate cu unele din programele date 
in paragralele anterioare ale acestui capitol. 

Programele de mai jos sînt utile în cadrul orelor de ulgebră, geometrie, 
fizică, pentru ilustrarea, prin reprezentări grafice, a unor iuncţii sau tenomene 
fizice. De asemenea, ele pot fi folosite pentru verificarea cunoștințelor unur 
grupuri de elevi, în privinţa despărțirii cuvintelor în silabe, a cunoaşterii reşe- 
dințelor de judeţe sau pe alte teme. La sfirşitul examinării candidaţii sînt ordo- 
naţi automat după mediile obţinute. 


12.4. Program pentru trasarea cercului trigonometric. 


Programul trasează cercul trigonometric şi calculează funcţiile sin, cos 
tg, pentru un unghi dat. Unghiul se dă sub forma unui multiplu k, de 5 grade — 
(P1/36). 


“ INIT F 
10 REM'CERE TF IGCNOMETAI Cc 

12 REM*r=MULTIFLII DE S WFRADE 

15 INPUT Fr 

20 g= Sici sli 

28 MOVE So, 

0 FAR I=0 du 2*P1 STEP F1/36 

40 DRAW 2300015095090, 2505 INCLUD +50 
SO NEXT JI 

60 MOME S0,S0 

70 RDRAW -25,0 

20 RMOVE 25, 25 

“O RDIRAN 0, -50 

100 MOVE S%0,s0 

110 RIRAW 29sCOS(8),ZS*sIN(Q) 

120 RDRAW 0,-2S=SIN(Q) 

123 Pz=Qa1zZO/FI 

120 PG&INT AT(17,70)"A(1,0)" 

140 FRINT AT(5,9)"B(0,1)" 

150 PRINT ATC17, )"C(-1,0)" 

160 PRINT AP(33,9)"D(0,-19" 

105 PRERT AT(25,1)"Uz*;u 

170 PRINT AT.(27,1)' 82" sq 

149 PRINT AT(28,1)"SIN(Q)="; SIN(QG) 
190 PFENT AŢ(29, 1) "COS(Q4)=" ;COos(8) 
200 PRINT AT(30,1)“TAN(Q)="; TAN(G) 
409 ENB 


150 Microcalculatorul aMIC în învățămint. 


12.5. Program pentru vizualizarea poziţiilor unor drepte care 
trec prin originea axelor de coordonate. 


Programul are un caracter conversaţional, solicitind iniţial numărul k 
de drepte, care urmează a îi reprezentate, coeficienţii unghiulari, M (k), ai 
acestor drepte şi limitele pe orizontală ale ferestrei de afișare (X1, 42). 


S INITP 
10 REM*VIZUALIZAREA POZITIEI 


REM"UNEI DREPTE CE TRECE 


30 REM"PRIN 0(0,0), IN FUNCTIE 


REM"DE COEFICIENTUL UNGHIU- 


SO REM"LAR M=TAN(U), UNDE 
50 REM" Y=MuX 

70 REM"VARIABILE UTILIZATE 
60 REM"K = NUMAR DE DREPTE 
90 REM"M(K) = VECTORUL ALE 


REM"CARUI COMPONENTE SINT? 
REM"COEFICIENTII UNGHIULARE: 
REM"LIMITELE FERESTREI 
REM"APISATE : XisLIMITA 
REM"STINGA, X2sLIMITA DREAP 
REM'TA, Yi = LIMITA JOS, Ya 
REM"LIMITA SUS 

PRINT “INTRODUCETI K”: 
INPUT K 

PRINT "INTRODUCBTI COEFICIENTIL* 
DIM M(k) 

FOR l=1 TO K 

PRINT * M("9713%).*ș 


INPUT M(1) 

NRXT 1 

PRINT * INTRODUCETI LIMITELE X1,K2" 
INPUT X1,X2 

Vi=X1 

va=X2 

REM" AFISAREA GRAFICULUI 

INIT P 


VIEWPORT 40, 120, 20, 100 
WINDOW X1,X2,Y1.,Yv2 
REM"TRASARE AXE Sl CONTUR 
MOVE X!,Yi 

DRAW X2,Yi 

DRAW X2,Y2 

DRAW X1,Y2 

DRAW X1,Yi 

MOVE X1,0 

DRAW X2,0 

MOVE 0,vYi 

DRAW 0,Y2 

PRINT AT (1,20)*Y" 
PRINT AT(15,30)*x* 

R= (X2-X1)/20 

POR Isi TO K 

PRINT AT(2%1, "ms ls cMl 
Ri=1*R 

MOVE X1,M(b)axi 

DRAW X2,M(1)x%a 

MOVE R1,0 

U=ATN(M(1)) 

IF U=> THEN 600 

IF U>0 THEN 560 


Ss8 UsP1+U 

S60 FOR J=0 TO U STEP U/10 
570 DRAM RIxCOS(U), RPESIN(J)> 
SEO NEXT 

600. NEXT 1 

700 END 


12.6. Graficul funcţiei de gradul doi. 


Programul afişează într-o fereastră dată (X1, X2) o familie de 
de gradul doi (Y=A*X 4 2) cu diferiţi eoeficienţi. Limitele verticale ale feres- 


trei se calculează automat. 


parabele 


Graficul funcţiei de gradul doi 
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5 INITP 

10 REM"GRAFICUL FUNCTIEI 

20 REM"DE GRADUL DOI 

30 REM"Y=AnX*2 

40 REM"VARIABILE UTILIZATE 

50 REM"K=NUMAR DE PARABOLE 

60 REM"A(K)=VECTORUL ALE 

70 REM"CARUI ELEMENTE SINT 

80 REM"COEFICIENTII LUI X*2 
90 REM"LIMITELE FERESTEREI 


100 
110 


REM'AFISATE 3 Xial.IMITA 
REM" STINGA, X2=LIMITA 

REM" DREAPTA, YViaLIMITA JOS 
REM"Y2aLIMITA SUS 
REM"FEREASTRA SE CONSIDERA 
REM"SIMETRICA, DECI: 
REM"ABS(X1 )mABS(X2)=X SI 
REM" ABS (Y1 )=zABS(Y2)=x*2 
PRINT “INTRODUCETI K"ș 
INOUT K 

PRINT "INTRODUCETI COEFICIENTII* 
DIM A(K) 

FOR I=i TO K 

PRINT "A("3lp)a”; 

INPUT A(1) 


REM"AFISARE GRAFICA 
INIT P 

VIEWPORT 40,120,20,100 
WINDOW X1,X2,Yi,Y2 
REM"TRASARE AXE SI CONTUR 
MOVE X1,Yi1 

DRAW X2,Y! 

DRAW X2,Y2 

DRAW Xi,Ya 

DRAW X1,Yi 

MOVE X1,0 

DRAM X2,0 

MOVE 0,Yi 

dial + 0,Yz 

PRINT AT(1,20)"Y* 

PRINT AT(15,30)*X* 
PRINT AT(1,1)3*Y=AxX"2" 


Pax /a20 

FOR lei TOK 

PRINT AT(2x1,1)“"A" pa" Atl) 
MOVE X1,A(1)mxi*2 

FOR J=Xl TO X2 STEPP 

DRAW yJ,A(1)xyJ"2 

NEXT J 

NEXT |] 

END 


12.7. Graficul funcţiei de gradul N 


Programul reprezintă graiicele u nei familii de parabole (Y=A (k)y*X- N), 
unde A (k) este coeficientul parabolei cu numărul: k, iar N> =—0. Programul 
solicită numărul k de parabole, coeficienţii A (k) și limitele orizontale X1, X2 ale 


ferestrei de afişare. 
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S INIT P 

10 REM"GRAPICUL FUNCTIEI 

20 REM"DE GRALIUL N 

30 REM"YzAxX*N 

40 REM"VARIABILE UTILIZATE: 
SO REM"K=NUMAR DE PARABOLE 
60 REM'A(K)=VECTORUL ALE 

70 REM"CARUI ELEMENTE SINT 
RO REM"'COEFICIENTII LUI X*N 
90 REM"LIMITELE FERESTREI 
100 REM"AFISATE:XieLIMITA 
110 REM"STINGA, X2=LIMITA 
120 REM"DREAPTA, YiLIMITA JOS 
130 REM"Y2=LIMITA SUS 

140 REM"FEREASTRA SE CONSIDERA 
150 REM"SIMETRICA, DECI 

160 REM"ABS(X1)=ABS(X2)eă SI 
170 REM"ABS(Yi )=ABS(Y2)ex*2 
200 PRINT "INTRODUCETI Kk”; 
210 INPUT K 

220 PRINT “INTRODUCETI COEFICIENȚII” 
230 DIM A(K) 

233 DOM N(Kh 

240 FOR 1> 1 TOnKk 

230 PRINT “A("31;%)m"ş 

260 INPUT At]) 

265 PRINT “N(";1;")a*g 

266 INPUT N(I) 

270 NEXT | 

220 PRINT "INTRODUCETI 1"; 
270 INPUT X 

300 X1=-%X 

210 A2e% 

320 YIlz=X*2 

IO Vary 2 

240 RFEM"AFITARE GRAFICA 

280 INIT P 

340 VIEWPCOIRT 40, 120, 20, 190 
370 WINCICW X1,X2,Yi1,Y2 

280 REM"'AXE SI CONTUR 

A40Q MOVE XI1,Yi 

410 DRAW Xz,Yi 

425 DRAW X2,Y2 

430 DRAW X1,Yv2 

440 DRAW X1,vYvi 

450 MOVE x1,0 

460 DRAW X2,0 

470 MOVE 0,4) 

4%0 DRAW 0.42 

940 PRINT AT(1,20)"Y* 

950 PRINT AT(15,30)"X%* 

360 PRINT AT(1,1)9"Y=AxĂ'N” 
600 PsXx/20 

610 FOR Il= 1 TO Kk 

e15 PRINT AT(2x1.1)"A“șîp“a“sAal(1) 


ele FRINI AT(s51+1.1)"N”'îş*c“aNI(I, 
ca ME XI, ACID)X1"N(I) 

620 FIR 1-xl to Xx2 STEP P 

e80 DRAW _,A(l)uI“ NI) 

ESTO NEXT d 

E20 NEXT | 

ec? PRINT "DORITI ALT 12. O0Ani” 

e 79 INPUT [ 

„ge IF U=3 THEN 280 

700 EN[i 


12.8. Graficul funcţiei logaritmice. 


Programul afișează graficul funcţiei logaritmice în bazele 2, 3, 5 şi 10. 
Iniţial se solicită limitele orizontale de afișare. 


e INIT F 

10 FEM "GRAFICII FIINCTIE) 

20 REM “LOGARITMICE IN 

30 REM “RAZELE ; 2, 3,5, 10 

3€. REM “LIMITELE INTERVALULUI] 
40 REM "DE AFIZARE 


49 REM “"Xi = LIMITA STINGA 
“O REM "X2 = LIMITA DREAPTA 
a REM “Vi = LIN. IA7, Ya = LIM. Sat 


GO REM “LIMITA X1 VA FI CALCIILATA 
75 REM "PENTRU Yv = LOG(XI/LOG(IU: 
E&O REM "DACA Yy >= 3 LIMITA vaz 3€ 
VA CALCULA 

83 REM "PENTRU Y = LCD X o Zita 
30 PRINT “INTRODUCETI CIMITELF: 
SE PRINT "x 3.1 Xz 

lu PRINȚ *x1 = 

110 INFUT KI] 

120 PRINTI "x = 

120 INPUT K: 

140 IF X1 := O THEN Su 

190 YI 2 LOMLUXL)/ZLOGI 2 

160 1F x2- 1 THE 1SC 

170 Ye = LOGIX2) /LOGt( 2: 

1%O0 GOTO 200 

190 Yz = LOG(XZI /LOGt 10 

200 REM "AFISARE GRAFICA 

210 IÎNIT PF 

220 VIEWPORT 40, 120,0.7u 

220 WINUICMU X1,X2,YV1, Ya 

D240 REM "TRASARE AXE £!) CIiiNIIIP 
SEO MOVE X1,Y1 

250 DRAW X2,Y1 

270 DRAM Xo, vi 

250 DRAW XI. Y2 

290 DRAW X1.Y) 

200 MOVE X1,0 

210 DRAW X2,c! 

2200 MOVE O, Yl 

320 DRAW 0,Y= 

240 PRINT AT(10,10)“”v: 

280 PRINTI AT( 22, 20) vYy” 

30 PRINT AL(1, 195 "YA Lie) 
a7Q0 PRINT AT(2, 1); "YzLOG(X) /LUOG(Z) 
380 PRINT AT(2, 1) "Y=LOUD(X) /LUOGES) 


270 PRINT AT(4, 1); "Y=LOG(X)/LCIDe10: 


8400 PRINT AŢIS, 1) "xiz"iX1 
4uz PRINT AT(6,1);"X2="iXa 
404 FRINT AT1(7,1);"Y1=2"șYl 
406 FRINI AT(S,1l): "vaz :ive 
d61U k = i 

41Ş GOSIIL 600 

420 k=z 

425 GUSuUB ecou 

430 r=3 


Graficul funcţiei logaritmice 103 


435 GO5UB 600 
440 K «= 10 E 
Î. GUsUE 600 
O FRINT"DORITI “e ci 
200 ia ALTE LIMITE DA: 
490 IF D=! THEN 90 
473 GOTO 700 
ŞUO PRINŢ “LIMITA X1 INCORECIA” 
310 STOP 
oU0 P3(X2=%1)/100 
CiU FOR J 2 X1 TO X2 STEP Pp 
6420 DRAW Se LOG(I) /LOG(K) 
630 NEXȚ JI 
680 MOVE X4i,Y4 
650 RETURN 
700 END 


12.9. Program pentru studiul aruncării corpurilor 


sub un unghi dat 


Programul solicită unghiul sub care are loc aruncarea, viteza iniţială şi 


viteza vintului. 


Pentru încadrarea graficului in limitele ecranului, programul execută o 
scalare pe verticală, calculînd iniţial înălţimea maximă la care ajunge corpul. 
În acest scop solicită numărul de paşi pentru a calcula valorile parabolei în 
punctele respective, reținind valoarea maximă. 


Se afișează înălțimea maximă (și bătaia. 
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1 INIT F 

2 REM"FROGRAM FENTRI. STIULau  AFRUN- 

CARII CORFIURILOR 

PRINT "INTRODUCETI UNGHIUL a Mu, V.ÎNIT:V,V. VINT: 


MPPIUIT U,V,W 

PRINT “"INTRODIICET] NIUMARILIL DE PASI N» 
INPUT N 

O INIT P 

L=P1a!l/ 190 

2 K=VaCrz(L)-wW 
B=(V*SINI(L))/r 

34 A=-4,9%03/K+2 
X2=K»VsSIN(L)x2/9,.S81 
R2=(41/19.62)a(VaSINI(LI))*2 
PRINT AT(28,1)“H.MAX = ";R2Z 
FRINT AT(29,1)"X,MAX =":Xx2 
COZIUR 1000 

<TOP 

40 END 

1000 1F x1< x2 THEN 1030 
1010 PRINT “LIMITE GFREZITE" 
1020 3TOP 

1030 H=tX2-X1)/N 

1040 VIEWFORT 40,100, 20,100 
1050 X1coQ 

1070 FR1=0 

1100 IF Xx2>=R2 THEN 1l1u 
1110 XăRz id 

1120 GOTO 1190 

1140 Ri=x2 

1190 WINDOW X1,xa,RI,Fka 
r200 MOVE X1,0 

Y201 DRAW X2,0 

1207 MOVe O,R1 

1203 DRAW O,R2 

1210 Xz=X1 

1220 GOSUB 1500 

1230 MOVE X,F 

1240 FOR Ilal TON 

1250 XeX+H 

1220 GO3UP 1500 

1570 DRAW X9F 

1280 NEXT |] 

1270 RE TOKN 

1500 P=AnXx"2+Bu 

1516 RETUR 


ADI NO p Ei 


wWuwul 
Wh 
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(ă,| 


12.10. Calculul punctului de intersecţie a deuă drepte 


U dreaptă poate fi definită prin specificarea coordonatelor unui punct 
M (x, y) şi a unghiului pe care îl face cu direcţia pozitivă a axei Ox. Fie două 
drepte Di și D2 de ecuaţii parametrice: 


X=X+LcosU, 
D1: 

Y=Y.+L, sin U, 

X =—X3+ Le cos Uz 
D2 : 

Y=Y3+1L Sin Uz 


Fie (9, Yg) coordonatele punctului de intersecție. 
Înloeuind în ecuaţiile parametrice, se obține sistemul ” 


Xo=X +lLi COS U, 
Yo=Y,+L, sin U, 


Calculul punctului de intersecţie a două drepte 


De aici rezultă: 


Ag=Xa+ La cos Ug 
Yo=Yo+lLa sin U, 


IL. cos U,—La cos U,=X2—X, 
L, Sin U—La Sin U.=Y2—Y, 
De unde: Ly =((A.—X2) sin U2—(Y,— Y2) cos U2)/sin (U—Ua). 


Av înd determinat L,, coordonatele punctului de intersecţie vor îi: 


A2ĂĂSIsad oua 


[4] 
“ 


Şașasăzătusa 


XNg=ĂA +, cos U, 
Yo =Y.+L, sin U, 


REHN “umunnnmnnnmnmuexmammmmemaanamna e 
REM "se CALCULUL PUNCTULUI DE ”* 
REM “e IRTERSECTPE A DOUA DREPTE »* 
REM “o mmunnmumnnmiememaee teme edeme ete me e 
DIM Dsci) 

REM “CITIREA DATELOR" 

PRINT "INTRODUCETI PARAMETRII DREPTELOR* 
PRINT *X1,Y1,UlL(GRADE)” 

INPUT X1,Y1,Ul1 
PRINT *X2,YB,U2(GRADB)* 

INPUT X2,Y2,U2 

REM "TESTARE PARALELISM DREPTE" 
N»ABS( (U1-U2)/180) 

IF INT(N)<C>N THEN SO 

PRINT "DREPTELE SINT PARALELE” 

sToP 

REHN “CALCULUL COORDONATELOR* 

R&M "PUNCTULUI DE INTERSECTIE" 
UlaUiaP]/180 

Y2=U2*P ] /180 
Pil»(X1-X2)*SIN(U2)-t(Y1-V2)aCOS(U2) 
D=81N(U1-U2) 

L=01/8 

XD=X1+L*COS(U1) 

YO=Yi+La=SIN(U1) 

PRINT "COORDONATELE PUNCTULUI” 

PRINT “DE INTERSECTIE SINT:* 

PRIRT *X0e”*,XO 

PRINT “YO=*;TO 

PRINT “DORITI AFISARE GRAFICA? (DA,NU) 
INPUT Dei!) 

IF DS(1)e"D* THEN 120 

STOP 

REM “DEFINIREA SPATIULUTŢ DE ARISAT* 
T1a485(X09 

T2=ABS (YO) 

IR TIX>T2 TMEN140 

TiaT2 

tle2rTi 

IP T1<>O TREK 149 

T1220 

INIT 

VIBUPART 10,90,10,90 

UINBOU -T1,T:,-Ti,Ti 

REA “TRASAREA AXELOR” 

MOVE -T1,0 

BRAU Ti:1,0 

Mevă 0,-Ti 

DRAU 0O,Ti: 

REM “TRASAREA DRERTELOR* 

MOVE XI1-2*TInCOStU1),Y1-2uTIixSIN(UL» 
DRAU X1+2xTIxCOS(U1),Yi+2xTIxSINCUl1) 
MOVE X2-2xT2*C0S(U2),Y2-2*T2*SIN(U2) 
DRAU X2+2xT2x*C0S(U2),T2+2x*T2*SIN(U2) 
MOVE X0,Y0O 

DRAU X0,0 

MOVE X0,Y0 

DRAU 0,Y0O 

EN3 
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Dacă dreptele sint paralele numitorul expresiei pentru calculul lui ta 
este nul. Deci se va testa condiţia de neparalelisn UI—UDzIsz. 

Programul funcţionează astfel : 
1. Citeşte parametrii celor două drepte ; XI, YI, Ul și X2, Y2, U2. 
2. estează dacă cele două drepte sint paralele. Dacă dreptele sint puruiele 

se opreşte execuţia programului. 

3. Calculează coordonatele punctului de intersecţie și apoi le atișează. 
4. Afişează pralic (eventual) rezultatul. 

La definirea spaţiului de afişat în linia 199, s-a avut în vedere ca originea 
și axele sistemului de coordonate să apară pe ecran. 


12.11. Calculul punctelor de intersecţie a două cercuri 


Se consideră cercurile definite prin centru şi rază: CI (AI, VI, li) 
C2 (AZ, Y2, R2). Distanţa dintre centrele celor două cercuri este: 


D= V(A2—X1 + (52—Y1 


Se va nola G=XA2—Al şi H=V2—Yl. 

Pentru a se intersecta, distanţa dinire cercuri: trebuie să [ie mai mică 
decit suma razelor și mai mare decit aiferența lor: |R2—RI | <DsIiil4+R2. 

În cazul egalităţii, cercurile vor îi tangenie. Se notează cu Ul unbhiul 
format de dreapta ce unește centrele cercurilor cu orizontala şi U2 unghiul 
fo rmat de această dreaptă cu raza primului cerc dusă în punctul de intersecție 
dorit. Coordonatele punctului de intersecţie vor fi: 


A=XI+Rl scos (U1+F+U2) 
Y = Y1+Rlesin (Ul +F*U2) 
Unde: [1 pentru punctul din stinga dreptei ce unește centrele (privit dinu Cl) 
și —1 pentru cel din dreapta. 
Peniru calculul unghiurilor Ul şi U2 iolosim relaţiile: 
Ul =ATN (G/H), sau x/2 dacă H=0 


ȘI 
U2 =arccos (R124+D2—R22)/(2*R1+D) 


insă arceos va fi calculat prin funcţia ATN. 
Programul funcţionează în felul următor: 
1. Citeşte coordonatele centrului și raza Al, 11, RI pentru primul cerc. 


2. Citeşte toerdonatele centrului și raza A2, Y2, R2 pentru al doilea cerc. 
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SI 9 e 0 e e E 


3. Citeste valoarea lui F (1 =punctul din stînga, —l=cel din dreapta) 


4, Calculează valorile G, H și D. Dacă nu e verificată condiţia : |! R2—RI |q 
<D<LRI+R2 execuţia se oprește. 


5, Culenlează unghiurile Ul şi U2. 
« Caleulează coordonatele X, Y ale punctului de intersecţie dorit. 


6 
7, Afisare grafică (eventuală) a rezultatului. 
3 


3. Step. 


NA PEM “"mupuvunsuuwvumouumwmmuvuuvwoWmu umane * 


DOS REM "m CALCULII. FUNCTELOR DE INTERSECTIE A DOUA CERCLRI »" 


DIO FEM "muwmmrmmouonuuoaemmtemavosumunmWn mite tata mi tm acetat 
O1S" DIM RS(1) 


A20 PRINT "INTRODUCETI COORDONATELE CENTRIAIJI SI RAZA" 
023 PRINT: “PENTRU PRIMUL CERCIXI,VI,RI:;, 


1029 INPUT Y1,YI,Ri 
040 IF R11-0 THEN 00 


OS0 PRINT “PENTRU AL DOILEA CERC(X2,Y2,Ra)"; 


O£0 INPLIT X2,Y2,R2 

049 IF RIO THEN 095 

070 PRINT “RAZA NEGATIVA SAI NULA!” 
073 GO TO $>0 


“5 REM "CALCULUL MARIMILOR G,H,D" 


DOS Gryz=Y] 
100 H=Y2-Yi 
105 D=SOR(G*R+H*H) 


11% FEM "VERIFICREA. CCNDITIILOR DE INTERSECTIE" 


lo 1F DEO THEN 143 

120 IF RIcC*R2 THEN 15% 

125 PRINT "CERCURI IDENTICE!” 

140 GQ TA 320 

11% TF DYRLeR2 THEN 155 

SO IF D5eACS(RI-R2) THEN 180 

15% PRINT ""ERCIIRILE NU SE INTERSECTEAZA!” 
120 60 TO 20 


170 REM "CALCULUL IINGHIULUI Uli” 


130 UieP]/2 

135 IF G<'o THEN 205 
1920 IF HO THEN 233 
193 Ul=-tui 

200 GO TO 235 

208 ULeATN(H/G) 

210 IF GO THEM 225 
215 Ui=Ui+P1 


225 REM "CALCULUL IUNGHIIRLUI U2* 


235 LI-cRIMRIi e DuD-RIRRI) /(2mRluD) 
240 U2eP1/2 

245 IF Li=0 THEN 27% 

250 L2=SQR' 1 LILI) Li 

255 UZrATN(L2) 

260 IF L130 THEN 275 

245 U2=u2+8l 


=70 
2” FRINT "PUNCTELE DE INTERSECTIE AU COONKDONATELE:* 
=30 


295 F-1 
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290 YrYieRImCOStUL+Fnu2) 
295 YsYV1+RIRSIN(UL1+FuU2) 
200 PRINT "xX="7X,"y=";Yy 
30% Fair 

310 IF F<>i1 THEN 290 


320 PRINT “DORITI AFISARE GRAFICA(D/N)"> 


320 INPUT R$ 
325 IF R9<)"D”" THEN 590 


3AS REM “STABILIREA CONDITIILOR DE AFISARE" 


355 INIT 

30 'PIEWPORT 40, 140,0, 100 
26% AnăXi 

370 E=X2 

275 GO SUL 343 

380 Ti=T 

285 Azvi 

390 B-Yy2 

395 GO SUB 545 

400 IF T>=T1 ȚHEN 410 
405 TaT] 

110 VU INDOU -T,T,-T,T 
411 MOVE =T,-T 

412 DRAU T,-T 

412 DRAW T,T 

411 DRAW -T,T 

415 DRAW -T,-T 


120 REM "TRASAREA CERCURILOR" 


8430 Je2*P]+P1/10. 

433 K+P]/10 

440 MOVE XI+RI1,Yi 

443 FOR 1=0 TO. STecPr 

450 DRAW X1+FRI*COS(1), VI+RIsSINCI) 
435 NEXT ] 

450 MOVE X2+R2,Ya 

463 FOR I=0 TO J STEP K 

4709 DRAW X2+R2*C0S(1), Yv2+R2xSIN(I) 
473 NEXT ] 


125 REM “TRASAREA AXELOR” 


500 DRAW T,0 
505 MOVE 0,-T 
510 DRAW 0,7 
515 MOVE =T,-T 
520 60 TO 590 


530 REM “SURRUTINA DE CALCUL A COORDONATEI MAXIME“ 
533 REM "PE 0 DIRECTIE DATA" 


945 TrABS(A-RI) 
930 IF T>eABS(B-R2) THEN 360 
9535 T=ABS(B-R2) 
360 IF T>=ABS(A+RI1) THEN 370 


5.5 T-PBS(A+RI) 
570 IF T>y=ARS(B+R2) THEN 590 


575 T-ABS(B+R2) 
590 RETURN 


590 PRINT "DORITI ALTE CERCURI (D/N)": 


600 INPUT Rs 
cOS IF R$="[” THEN 020 
£10 END 


12.12. Calculul tangentelor dintr-un punct la un cerc 


Fie o dreaptă I) de ecuaţii parametrice : 
X = A + L cos | 
v=Y%y,A-Lsin l 
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unde: XA, X, sint coordonatele unui punct precizat al dreptei, | direcţia 
dreptei, iar L este distanţa de la punctul (X,, Y,) la punctul curent. 
Fie un cerc C, de centru'(Xo4 Y.) și rază Rfde ecuaţie : 
(X—X9)'+(Y— Yo =R? 


Pentru a se obţine tangentele din punctul (X,, Y,) la cercul C, se vor 
inlocui X și Y daţi de ecuaţia dreptei D în ecuația cercului. Se obţine: 


) ) 12+2L (H cos T+V sin T)+ V2+H2—R2=0 
unde s-a notat: H=X—Xp și V=Y,—Yo. 
Se presupune că punctul (X.,5Y,) feste exterior [cercului C, deci: 


/ 1124 V2>R2. Condiţia ca dreapta D să fie tangentă la cerc este ca ecuaţia (1) 
de gradul doi în L, să aibă soluție unică. Pentru aceasta trebuie ca: 


(2) (EL cos T+YV sin T):=V2+H2—R2 


În rezolvarea acestei ecuaţii se disting două cazuri 
a) LIz0. Din (0) se obţine: 


ea CE a se V2+- H2—R2 
cos + A sin Tosa POEEZE 


Fie [ -aretg[ >]. Înlocuind mai sus se obţine: 


E e Li) P AER V24 H2—R? 
COS (I—F)=-+ | j 
ti 0) a [e see eta 
VN2+ H2— R? 
+ hR 


i. da V 
și deci jo = arcig îi +arctg 


ÎN H Re 
b) V+0. Din ecuaţia (2), împărțind cu v rezultă: 


i V2 H2—R2 
sin (I+F)=+ | 


SI R H 
unde I: este unghiul pentru care tan ial vai, 


Procediînd ca la cazul precedent, se obţine : 
LI E) H /Nr2 H2— R2 
1,2 = —aretg —- +arctg + DER 


Se observă că în ambele cazuri se obțir două unghiuri TI, corespunză- 
toare celor două tangente la cerc. Avînd direcţiile tangentelor determinate 
printr-una din cele două metode, soluţia ecuaţiei (1) corespunzătoare unghiurilor 
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Îi ŞI la Va fi: Laa=—(Hecos l2-+-V sin '[42). Coordonatele punctelor de 
tangenţă se vor obţine înlocuind valorile obţinute pentru TI și L în ecuaţia 
dreptei D. S-au prezentat cele două cazuri de rezolvare a ecuaţiei (2), deoarece 


este posibil ca punctul (X,, Y.) să se afle pe aceeaşi verticală sau orizontală 
cu centrul cercului. 


3 În aceste condiţii va rezulta H=0 sau V=0. (Evident, H şi V nu pot 
fi simultan nuli). Programul va testa dacă Hz. În acest caz, direcţiile tanven- 
telor vor fi determinate prin prima metodă ; altfel se va alege cealaltă soluţie. 


lor 


[uncționarea programului : 
1. Citirea datelor 


a) centrul şi raza cercului (49, Y0, R) 


b) punctul din care se duc tangentele (XI, Yl) 


2. Testează dacă punctul dat este în interiorul sau pe conturul cercului, 
În caz afirmativ se va afișa un mesaj corespunzător și se va opri execuţia. 


3. Se determină direcţiile celor două tangente și coordonatele puncte- 


de tangenţă și se afişează rezultatele. 


1. Afişează (după dorinţă) grafic soluţia găsită. 

3 REM "umuusmvuuunssuuuremnuau vb usuramoumu“ 125 IF LL:AL3CYi) THEN 195 
2 REM "m CALCULUL DREPTELOR DE TANGENTA ." 190 LET LI=ABS(X1) 

2 REM “m DINTR-UN PUNCT DAT LA UN CERC DAT »" 19% IF LL ABS(YL) THEN 203 
4 REM "mmomrumuuuumuvnumnuunu mem m eme ee mee e 200 LET Li"ABS(YL: 

« REM “CITIREA DATELOR" 20% IF LL150 THEN 215 

6 DIM Del) 210 Li=20 

? PRINT “INTRODUCETI COORDONATELE CENTRULUI * 215 LET Li=2sLi 

10 PRINT "SI RAZA CERCULUI (X0,Yv,R)" 220 INIT 

1% INPUT XO,YO,R 28 ȚIEWPORT 10,90, 10,90 
20 PRINT “INTRODUCETI COORDONATELE FIINCTULIIT (X1,Y1)” 220 WINDUN —LI,LI, -LI.L1 
25 INFUT X1,vY: 222 REM "TRASAREA CERLULUI” 


LET MH=xX1-x0 

LET VeYi=Yo 

LET D=SQR(VzV+HsH) 

REM “SE TESTEAZA DACA PLINCTILL (X1,Y1)” 


„REM “ESTE IN INTERIORUL CERCULIJI ” 


IF DR THEN 7$ 

IF D-R THEN 65 

PRINT "PUNCTIIL EZTE INIERIOR CERCINLUI ” 
ZTOP 
PRINT 
<TOP 
REM "PUNCT EXTERIOR CERCULIJI ” 

REM "CALCULIIL PIINCTELOR DE TANGENTA” 

LET Ri=SOR(VuVeHuH-R*R) 

IF H=O THEN 100 

LET TI-ATN(V/H)eATN(R/RI1) 

LEY T2eATN(V/H)-ATNIR/RI1) 

TOTO 1210 

LET Ti=-ATN(H/V)+ATN(RI1/R) 

LET T2--ATN(H/VI-ATNI(RI/R) 

LET Liz-t(HsCOSt Ti deVvuSIN(TI)) 

LET L2-=cHusCOSeT2)+VvuCIN(T2)) 

LET ZizcX1+Li»COS(TI1) 

LET WicYIi+LI»SIN(TI) 

LET 22zX1+L2»CO£4(T2) 

LET W2=YV1leLOsCIN(Ta) 

PRINT "COORDONATELE PUNCTELOR DE TANGENTA SINTs* 


“PUNCTIL ESTE FE CERC" 


5 FRINT "YA—"321, "YAr";MW)] 


PRINT *xE=":22, "vB" 342 

PRINT *0OORITI AFISARE GRAFICA ? (DA,NII)* 
INFUT DE(1) 

IF DSt1)="D-THEN 290 

REM "DEFINIREA SPATINUI UTILIZATOR" 

REM “21 A PORTIUNI! DE ECRAN PENTRIJ AFISARE” 
LET Li=ABS(x0: 

1F LIXARS(YOD) THEN 18% 


D LET LieAbO(vO» 


232 REM 


MOVE XO+R.Yo 

FOR 1=0 TO 2*P1+FP1/60 STEP Pl/s0 
DRAW XO+RsCUE (1), VO+R*SINI(II 

NEYT | 

"TRASAREA TANGENTELOR” 

MOVE 71,u1 

DRAW x1,vYi 

ORAN 22,02 

REM “TRASAREA AXELOR DE COORDONATE" 

MOVE -L1,0 

ORE L1,O 

MOVE O. -Li 

DRAW O0,Li 

END 


Calcule cu polinoame MG: 


12.13. Cucul cu polinoame 


Se va studia împărțirea unui polinom : a4X"-t+aox*-1+.. Fan printr-un 
polinom ireductibil și unitar peste R, anume cazul împărțirii prin x-Ba și 
x*-Ppx-kg. Goefieienţii polinomului cît : b,x"-kbax"-1++.,. Fbazs vor fi deter- 
ainaţi prin identificare în relaţia : 


(b1xX* + box" 4+ «e e FDaa) (X-Pa)hbauz =a7X" Pază ih ea e Pass 


ande cu byqa s-a notat restul. Rezultă; 
b, =t Și biu>a—ab,, pentru i=i], 2. ... n-+Fl. 


Programul de calcul al coeficienţilor cîtului şi restului este dat mai fes. 

Similar, se obține și programul ce determină cîtul şi restul împărţirii 
polinomului AX apXR- la. .Fâsa prin polinomul x2+px+q obţinindu-a e 
citul și restul rx-+-s. 

irogramele de împărţire se pot utiliza în descompunerea în factori a 
polinoamelor în găsirea rădăcinilor unui polinom, în calculul valerii unui 
polinom. 


FEN  nnnaunanannnannannannunnannuna S REM “ana uRRNNNARURRARRRRARNRRRD 
REM *nIMPARTIREA UNUI POLINOM DB » 10 REM * IMPARTIREA UNUI POLINOH 06 e 
REHN *uGRAD N PRINTR-UN POLINOM » 15 REM * GRAD N PRINTR-UN POLINOW e 
) REM *xDE GRADUL 3 : X+A ] 20 REM * DE GRADUL D001 e 
40 REHN “unuunmnnnuneuennaannnnnmanmnana 25 REHN "xunuanaxaNRaNaNRNANRR EN RPRERD 
60 PRINT "Nes"; 30 PRINT “Na”; 
70 INPUT N 40 INPUT N 
60 DiH A(N+1),B(N+2) 45 DIM A(N+1),B(N+3) 
90 POR Îi ». 3 TO N+i SO PRINT “COEFICIENTII POLINONULUD * 
100 O PRINT “At-*;1;*)a*y 60 FOR la! TO N+i 
110 ÎNPUT At] 70 PRINT “A(*;];*)s*; 
120 NEXT [= 10) INPUT A(]) 
130 PRINT “As-; 90 NEXT ] 
840 ÎNPUT A 100 PRINT “COEF. DIVIZORULUI” 
130 Bt(3)=0 110 PRINT *xX"2+Pnx+Q* 
969 POR Î «< 2 TO N+2 120 PRINT “P=*; 
170  Bif)aati-22-AxB(o-3) 130 INPUT P 
180 NEXT JI 180 PRINT “Qz*; 
183 REM 150 INPUT Q 
190 REM “APISAREA REZULTATULYI 200 B(1)=0 
200 REHN 210 8t2)=0 
210 FOR le2 TO No) 220 FOR 1=3 TO N+3 
220 PRINT “Bt-,1p*)e*;:Bt:39 230  Btl)aA(1-2)-PuB(1-19-0uBt1-29 
230 NEXT ] 240 NEXT ] 
280 PRINTI “8s";,BiN+2) 250 REM “AFISAREA REZULTATELOR” 
230 END 260 FOR 1=3 TO N-+l 
270 PRINT *B(*;];*)2"*;B(3) 
280 NEXT ] 


290 PRINT “AFISARE REST: RX*$Ş e 
300 PRINT “R=*;B(N+2) 

310 PRINT *Ş2*;B(N+3)+PxB(N+2)2 
320 END 


12.14. Rezolvarea ecuațiilor algebrice prin metoda Bairstow 


Ecuațiile algebrice, f (x)=0, unde f este un polinom pot îi rezolvate 
prin metode aproximative. În continuare se va descrie o metodă care constă 
in descompunerea polinomulu: în produs de polinoame de gradul doi (naetoda 
ii — SIieroealaulatorul personal aMi6 — vol. 1 
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Bairstow). Fie polinomul î(x)=—ajx"-+apx-1+...-+au Şi (p, q) două 
numere. Împărțind polinomul prin x2+px+q obținem : 


n+l n$I 
A a X2ti-f = (5 pent) (x2-+px+q)+rx+s 


Prin identificare se obțin coeficienţii b,, r şi s în funcție de p și q: b.=bs=0 și 


(1) 
(2) 


b =a;-2—Ppbi-1—Qbi-2, pentru 3<isn+3 
iar, T =Das2 şi S=bassFPba2 


Va trebui să se găsească p și q astfel încît: r(p, q)=s(p, q)=0. Acest 
lucru revine la rezolvarea sistemului: 


Pentru calculul lui E, se vor calcula za prin recurenţă din expresiile 
obţinute prin identificare (1). 


Notiînd cu = pentru ls<isn+3, şirul c, va fi 


$4m—b,1—PCi-a—Qei-2, pentru 3sisn+3. 
Din formulele (2) se obţine: 


> C3 =0a =0O şi 


+ 0s 
2p Cny2 ŞI îp od Cn 


Pe de altă parte, derivînd formulele (1) se obţine: 


ab, ); .  0s 
Ro =C4_, deci Fra Ca ȘI da =C as FPCa: 


Sistemul (3) se va rezolva prin metoda Cramer : 


d = câ gat (Casstbasz) 


Ap ml și Ag = —bași (QCag1FPCa42)—ba, 3Cne2 


d 
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Se definește apoi un şir de puncte (p”, q') care, în principiu, converge 
către un punct (p, q) încît: x2-+px+q divide pe f (x). Practic, numărul de 
puncte (iterații) este limitat la k=100, în program, utilizîindu-se ca condiţie 
de oprire: 


lAp| + | Aaql 


<e 
lp|l+|a| 


(e fiind luat 10-* în program). 
Ecuația x?-+px+q=0 este apoi rezolvată în C folosind formulele uzuale. 


n+! 
Programul continuă cu polinomul cît y, b,x"+1-!, dacă gradul său este mai mare 
3 
decit 2. 

60 REM munmnannamnnmnannnaenmmnmmmmmmmmamnemae 570 REM "ULTIMUL FACTOR” 
65 REM n” REZOLVAREA ECUATIILOR ALGE- = <30 REM 

70 REM m" BRICE-MHETODA BAIRSTOU- » 590 IF N=2 THEN 630 

759 REM unmmmemmnmnmennmmmmmmnemmmmaemaema ae 600 X=-A(2)/7At(1) 

80 PRINT “GRADUL Na"; 605 Y=0 

90 INPUT N 610 GO0SUB 800 

95 DIM A(N+1),B(N+3),C(N+3) 620 G0T0 690 

100 FOR lai TO N+i 630 PsA(2)/At1) 

110 PRINT “A(*;];")ae; 635 OzA(3)/AtI1) 

120 a« INPUT A(FP) 640 GOSUB 670 

130 NEXT |] 650 STOP 

150 P=0 670 REM "REZOLVAREA EC.:xX'2+PnX+0z0* 
155 Q=0 680 REM 

160 k2100 690 D=PuP-4uQ 

165 E=.001 700 IF D<9 THEN 750 

170 REM “ TEST ASUPRA GRADULUI 710 D=SQR(D) 

180 REH 715 Y=0 
210 IF N <e 2 THEN 370 720 X=(-P+D)/2 
220 REM "CAUTARE P SI Q 725 GOSUB 800 
230 REM 730 Xa(-P-D)/2 
240 REM “!NITIALIZARE CONTOR CICLURI 725 G0SUB 800 
260 J=0 780 RETURN 
280 IF J>kK THEN 990 750 D=SQR(-D)/2 
290 J=J*l 7995 X=-P/2 
300 REM “CALCULUL COEFICIENTILOR 760 Y=D 
310 REM “B(l) Si C(l])"” 765 GOSUB 800 
320 B(1)=0 770 Y=-D 
322 Bt(2)=0 775 GOSUB 800 
324 C(1)=0 780 RETURN 

326 Ct(2a)<0 800 REM "AFISAREA REZULTATULUI" 
330 FOR 123 TO N+3 S$20 IF Y=0 THEN 8509 

340 B(1)=A(1-2)-PxB(1-1)-QxB8(]-2) 830 PRINT X;"*+c(";Y;e)]” 
350 C(1)=-B(]-1)-PnC6(1-1)-QnC(1-2) 840 RETURN 
360 NEXT 1 850 PRINT X 
370 REM “CALCUL DP Si DQ* 970 FETURN 
380 REM 790 PRINT "PROCES DIVERGENT” 
390 X=B(N+2) 999 END 


392 Y=B(N+3) 

394 ZaC(N+1) 

396 TaC(N+2) 

398 U=C(N+3) 

400 D=T*2-2n(U+X) 

410 IF D=0 THEN 990 

8420 Az(2xY-XxT)/D 

430 Bz(-xn(QnZ+PnT)-YnT)/D 

440 REM “NOILE P SI Q” 

450 P=P+A 

455 Q=a+B 

460 F=(ABS(A)+ABS(B))/(ABS(P)+ABS(Q)) 
470 IF F>E THEN 280 

480 REM "S-A GASIT POLIN. FACTOR” 
485 REM 

490 GOSUB 670 

S00 REM “INLOCUIREA POLINOMULUI * 
$10 REM 

320 N=N-2 

530 FOR la TO N+i1 

540  A(1)=B(1+2) 

550 NEXT 1 

560 GOTO 170 
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12.15. Metoda celor mai mici pătrate 


Metoda celor mai mici pătrate este o tehnică curentă de determinare s 
unei curbe y=—i (x) ce aproximează o mulţime de puncte date: 


(Y,, Xa), (Ya, X2), do. (Ye, X m). 
Metoda constă în minimizarea sumei patratelor „distanțelor“ : d2+42-+,,, 


„..+d2, unde d=y—i (x) este distanța între ordonata punctului dat și 


cea aproximată. Metoda este aplicată frecvent pentru funcţii exponenţiale 
sau polinomiale. În toate cazurile, metoda necesită rezolvarea unor sisteme 
de ecuaţii algebrice liniare, necunoscutele fiind coeficienţii ecuaţiei curbei, 


De exemplu, se doreşte aproximarea a M puncte date prin curba y=ax?. Pen- 
tru aceasta trebuie rezolvat un sistem de două ecuaţii cu necunoscutele a și b. 
Ecuațiile se obțin prin logaritmarea ecuaţiei y=ax” şi anularea derivatalar 
parțiale în raport cu log.a şi b: 


M 


M-log a+ Di (log x.) b= 5 log 


M M 
(5 3, log x] log a + ș: 3, (log e?) b= >, (log x : (log y.) 
a! 


Aceste ecuaţii sînt lHniare în loga și b. 
Dacă se dorește aproximarea prin curba y=ae?*, atunci trebuie sa se 
rezolve sistemul : 


M M 
M -log'a+ y, 3 b= >, logy, 
t=l i i=l 
(5 Ş, 3 log a+: (3 > =) b= b x, LOg:y 1. 


lasi 


Pentru aproximarea printr-o funcţie polinom : Y=C +-CoXP ac POert”, 
coeficienţii C, se vor obține prin rezolvarea sistemului : 


M M M 
M *C4 A+ (5 3 Co+ so... + (5 sa] Cai Di Yi 
M M M M 


=a |] 
o) o.) 2 0. e. om 0. on 029 9. o... 0... o... o. xi) mm PD o. o... c.. 0. or om o. 0.6 


"M M 


Ș> sc. (Se xeri)car.. [Se E Cuga= du XP 
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Yoate aceste exemple conduc la rezolvarea unor sisteme de ecuaţii liniare 
pentru care vom utiliza instrucţiunile matriceale disponibile în limbajul 
BASIC. 


Exemplubde program 


Se doreşte găsirea unei funcţii (putere, exponențială, sau un polinom de grad mai mio 
&ecit b), care aproximează cel mai bine un număr de puncte date (maximum 109). Coordonatele 
X;, 3. ale punctelor vor fi convertite în logaritmii lor de către program, dacă va fi necesar. Numă- 
rul de puncte date şi tipul curbei de aproximare fiind variabile, se vor utiliza facilităţile de 
xediumsezisionare a tablourilor. 


Programul va imprima ecuaţia curhei de aproximare cu coeficienţii calculaţi, lista coor- 
donatelor punctelcr date și lista valorilor funcţiei (y (x,)) ce le aproximează, precum şi eroarea 
comisă (suma pătratelor). Valoarea erorii va fi utilizată pentru alegerea tipului funcţiei de apro- 
ximare. Variatilele utilizate de program sînt următoarele : 


X ma vector de 10) de elemente ce va conţine valorile x, introduse 

Y == vector de 100 de elemente Care va conţine valorile y, introduse 

Am matrice de 10) linii și 10 coloane ce va conţine coeficienţii necunoscutelor sistemului de 
ecuaţii liniare 

Bs= loversa matricei A 

Gm vector de 10 elemente conținînd necunoscutele sistemului. 

D= vector de 10 elemente: ce conţine al doilea! membru a! sistemului 

Mm» ncmărul, de puncte 

Wa variabilă ce indică metoda de aproximare, dorită: 


30 pentru funcţie putere, y=axt 


w=1 pentru funcţie exponențială ys=act* 
N 
K=2, 3 ...,10 pentru funcţie polinom y= > Cazi! 
(mai 
Bi => „umărul de ecuaţii simultane 


KWil=2 dacă N=6 sau 1 
% IN dacă Ne=2, 3, . e es 10) 
£ Programul funcţionează, astfel 


i. [Citește datele 
a) Citește M valori pentru ys și M valori pentru x, 
b) Citeşte valoarea lui N care dă tipul curbei de utilizat 


Calculează leg %, și log Ip dacă 1 ==, sau log y, dacă N=1,.pentru î=1, 2, ,..,M. 


Caiculează elementele tablourilor [A și D, utilizir:d formulele corespunzătoare curbei alese 


Afişează ecuația curbei 


„ Caiculează valorile y (x), pentru, i=1, 2, ...,M 


3 

$ 

4. Bezolvă sistemul de ecuații. 

Ă | 

8 

7. Caiculul ererli, suma pătrateler distanțelor dj 4-3 . +43, 

$. Afişarea coerdenatelor x, y, și a valorii funcției y (x,), pentru i=1, 2, ..., M, apol afișarea 
a i rit că dacă N==6 sau 1, trebuie reconvertite valorile log y, şi log x, în y, și respectiv 

t,. 
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9. Se reprezintă grafic punctele (x,, y,) şi apoi se trasează curba care unește punctele de inter- 
polare calculate. 
10. Dacă se dorește o nouă rulare cu aceleași date, se revine la punctul 1.b). 


Instrucţiunile MAT ZER din liniile 200, 205 realizează redimensionarea matricei A și 
a vectorului D la fiecare nouă execuţie a programului. În liniile 370 şi 375 tablourile B și C sînt 
implicit redimensionate pentru a corespunde matricei A și vectorului D. Rezolvarea sistemului 
de ecuaţii este substanţial simplificată prin utilizarea instrucţiunilor matriceale (liniile 370 
şi 375). 


FEM "“umanamusn mama ama” 
REM "x APROXIMARE PRIN METODA ** 
REM “x CELOR MAI MICI PATRATE n” 
REM "axata ao” 
DIM XC100),YC100),2Z(100) 

REM “CITIREA DATELOR" 

PRINT “CITE PUNCTE DEFINITI 2" 
PRINT “"Mz" 

INFUT M 

10 PRINT "INTRROULICETI ORDONATELE Y» 
MAT INFUT Y(M) 

12 PRINT “INTRODUCETI AESCISELE k* 
12: MAT INPUT XM) 

14 REM "CITIREA DATELOR” 

15 PRINT “INTRODUCETI: N=0 PENTRU PUTERE" 


OONOABwNn= 


Be 
Dă 


1c€ PRINT * Ne! FENTRU EXPONENTIALA” 
17 PRINT * N=NR, TERMENI FOLINOM* 
18 PRINT 1Ns" 

“1% INPUT.N 


100 REM "CALCULUL LOG(X) 21 LOtcYv)” 
120 REM “DACA E NECESAR" 

130 IF N>=2 THEN 170 

1 25 FOR I=i ȚOomM 

140 YCIY>LOG(VCID) 

345 NEXT 1] 

150 IF N=fs THEN 170 


135 FOR 1=1 TOM 
140 _ pRELYSLOG(XCI DD > 
165 NEXT I 


1790 REM “CALCIULLIL MATRICE! A” 
17% REM “31 A VECTORULUI DU” 
15% NI=N 

3%0 IF Ni>=2 THEN 200 

193 Ni=2 

200 MAT A=ZERINI., NI) 

20% MAT D=ZERINI) 

210 At1,19)=M 

211 Nzz2=Nio2 

21% FOUR L1=2 PU N2 


220 s=0 
225 FOR K=1 TOM 
280 SaE+X(K9 (Dr) 


235 O ONEXTK 
240 POR IJz=j TOD! 


243 Saetiteur i 

250 1F INI THEN 245 
255 IF S2>NI THEN 243 
260 A(S2, g)=s 


265 NEXT 2 
270 IF D1>N3 THEN 285 


275 FOR Mi TON 
280 UD: )=Di[n )+V(R) xx (K)* (Die 
253 NEXT k 


290 REM 
360 REM “REZOLVAREA SISTEMULUI * 
363 REM 
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MAT EeiNV(AY 
MAT CeBxD 
REM 
REM “T1IPARIREA ECUAȚIEI” 
REM 
IF N>i THEN 42Q 
CI=EXP(C(1)) 
IF N=i THEN 420 
PRINT “PUTEREA Ve":CipeaRi=Cr2) 
GOTO 490 
PRINT “EXPONENTIALA V="pCiz “uEiP(osC(273 “at” 
5OTO 490 
IF C12)>=0 THEN 845 
PRINT *POLINCM V="40(1)3C(2)9 "8x95 
GOTO 450 


5. PRINT "POLINOM Ys“sC(1)3*esaC(2)s us 


IF Ne2 THEN 455 
FOUR I=8 TON 
IF CcI)>=0 THEN 475 
PRINT C(1); "xx" "e 1-19 
GOTO 420 
FRINT *+"șC([)i "Xp loiş 
NEXT |] 
PRINT 
REM 
REM “AFISAREA REZULTATELOR* 
REM 
IF N5>=2 THEN 545 
FOR lei TOM 
VUIl)sEXP(YV(I)) 
NEXT ] 
IF N=i THEN 545 
FOR I=1 TOM 
X(UI)=EXP(X(1))9 
NEXT ! 
FRINT 
PRINT “Y(DAT)", "Y (CALCULAT) * 
s=0 


DV FOR I=i TOM 


IF N>=2 THEN 8595 
IF N=1 THEN 58% 
YViecizXx(I1)*C(2) 
OTU 41% 
VI=C1sEXF(C(2)RXL1)) 
GOTI 619 
Vi=C(1) 
FOR J=2 TU N 
Yi=YVI+C(u)xX (1) (Jet) 
NEXT J 
S=S+1(Y1(1)-Y1)*2 
PRINT Y(I),Yi 
2(1)=Y1 
NEXT 1 
PRINT 
PRINT “EROAREA=":S : 
REM "CALCIILUL VALORILOR MAXIME” 
REM "PENTTRU CELE DOUA COORDONATE” 
UI=AES(X(1)) 
tI2=ARS(Y(1)) 
FOR I=2 TOM 


1F Ui»=ABS(X(1)) THEN 670 
UI=ABS(X(1)) 
IF U2>=ADS(YV(1)) THEN 680 
IJ2+ABS(V(1)) 
NEXT 1 
WINDOW =U1,U1,-U2,U2 
T=U2/50 
INIT 
FOR Il=i TOM 
MOVE X(I1),YViIo-T 
DRAW XC(I),YCI) 
NEXT 1 
MOVE X(1),2ZC4) 
FOR 1=2 TOM 
DRAW X(I),2(1) 
NEXT 1 
PRINT “INTRODUCETI VALOAREA | PENTRU" 
PRINT “OPRIREA EXECUTIEI” 
INPUT S 
IF S<)i THEN 15 
END 
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10.16. Transformata Fourier rapidă 


 Wransformata Fourier constituie de mai mulţi ani un instrument mate- 
matic utilizat în numeroase domenii, ca de exemplu în optică, acustică, fizică 
euantică, telecomunicaţii, teoria sistemelor şi a proceselor aleatoare etc. 
Fourier a demonstrat că orice semnal periodic poate fi considerat ca o 
sembinație de oscilaţii sinusoidale de frecvenţe f0, 210, 210 ... Astfel, dacă 
z (t) reprezintă amplitudinea semnalului în funcţie de timp, x (t) se poate scrie 
ca suma unui număr oarecare de funcţii sinusoidale. Deoarece pentru fiecare 
semnal, fazele iniţiale nu sînt identice, sin Qt devine sin (ot+q)a 


sin (ot+op)= sin ot cos g+-sin e costat 


unde cos q și sin q pot fi considerați coeficienți. 
Astfel, toate funcţiile periodice se pot descrie în felul următor s 


X (t)m=Ag-+a, sin ot-+b, cos ot 
ag sin 2wt-+ ba cos 2ut 
Fag sin 3wt-+ ba cos 3ut 


= 
ME. i 
undei e > =2ri (T este perioada şi î frecvenţa semnalului) ; 


a, 82, sc, bu ba. .. sînt constante care reprezintă amplitudinea fi2- 
2ăreia din componente ; 

A, este valoarea medie. 

Această relație reprezintă descompunerea în serie Fourier a funcţiei 
perioadice x (t). În continuare, problema principală este calcularea coeficien- 
ilor Ag, a, by, az, bo, ..., care se numesc coeficienţii Fourier. 

Deoarece A() este valoarea medie a semnalului periodic x (t), acest coefi- 
sient se calculează imediat cu relaţia: 

Aș 


|, x (t) at 


1 
Ao= a 


Fourier a demonstrat că ceilalți coeficienţi se obţin din formulele : 


2 T 
a a i, x (t) sin notat 


2 ii 
b., = 3 N x (t) cos notdt. 


Be definește transiermata Fourier a unui semnal continuu x (t) prin 
imtograla : 


+ 
X (= _ x (t) e-2atat 
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Parametrii t şi f reprezintă în general timpul şi frecvenţa, dar foarta bine 
acest calcul se poate aplica la o mare varietate de fenomene unde t și f pot 
reprezenta alţi parametri. 


Transformata Fourier inversă se definește prin relația a 
+00 Ş i 
x (t)= pi (£) eziztt af 


Prin utilizarea dispozitivelor numerice se obţine adesea un semnal discret 
x (n), printr-o eșantionare a semnalului iniţial x (t). În acest caz integrala 
Fourier definită mai sus poate îi înlocuită prin transformata Fourier discretă i 


N-—I! 
X(k)= Ş, x (n) emlane/NI 
in=g 


ande k==0, 1, ...,N—l. 


Mulțimea celor N valori x (n) constituie o reprezentare discretă a func-- 
ției x (t), iar cele N valori X (k) o reprezentare a spectrului X (f)e 


x (n) x (t) 
x (k) e X (î) 


Algoritmul transformatei Fourier rapide permite reducerea timpului de- 
execuţie a unei transformate Fourier discrete. 


Transformata Fourier discretă a unei secvenţe finite de valor (x (n)f, 
0<n<N—l poate îi prezentată într-o manieră mai practică s 


N—l 
X (k)= XA x (n) wax 


Ta apr 


unde 
"ADE e 2108k/5 


Aceustă relaţie arată că pentru o secvenţă de N numere o evaluare directă 
necesită (N—1): înmulţiri şi N.(N—1) adunări. Pentru valori ale lui N, de 
exemplu 1000, ca ordin de mărime, un calcul direct implică o cantitate foarte 
marc de calcule, chiar și pentru un sistem puternic. 

Principiul transformatei Fourier rapide constă in separarea secvenţei 
iniţiale de N valori în două secvenţe mai scurte ale căror transformate discrete 
pot îi combinate pentru a produce transformata discretă a secvenţei de N 
puncte. 


Astiel, dacă N este par și secvenţa originală a fest împărțită în două sec- 
venţe de N/2 puncte, este necesar un număr de înmulţiri de ordinul N?/2 pentru: 
a evalua transformata discretă pe N puncte. Dacă N/2 este la rindul său par, 
atunci secvenţa de N/2 valori se poate de asemenea împărți în deuă secvențe 
de cîte N/4 valori fiecare, pentru care se calculează independent transfor- 
matele și procedeul poate continua, obținîndu-se de fiecare dată eregterea vite- 
zei cu un facter de aproximativ 2. Pacă N este e puicre a lui 2, procesul se: 
poate repeta pînă la calcularea în final a transfermatelor pentru deuă puncte. 
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Programul BASIC prezentat efectuează calculul transformatei Fourier 
discrete pentru „un semnal definit, introdus în liniile 170 la 200 : 


x (n) =sin (2xn *8,555/N) 
unde n=l, 2, sa N 


Li 
10 PCM"TRAMSTORMATA, FOURIER RAPIDA” 
40 INPUT îi 
AS PRIFIT"AOIMARP DIC PLORI DISCRETE 3 “N 
50  M=LCGINI/LOG(2) 
£O DIM PtMay) 
"0 DIM RU 
20 DIM 0 
*O DIM Y(N) 
100 FUl-2 
105 PiaxATN(1) 
110 Fap ti-i TOM'e 
320 PUN L)=25P (n) 
170 NEXT HK 
110 A-2=*FI/N 
150 NOE. S5S 
1E0 ENA 
TO FOR ro ŢANI 
SO  ORI(KD-CIN(B*K) 
170 G(K)=0O 
ZOO NEXT 1 
210 M2-M/2 
41 M2P-Ne1 
aa Joi 
250 FOR 1-1 TQ MO 
220 IF 1-9 THEN 
270 TI=R( 
apă TI-A 
240 R(ID-RUIN 
ie DUID-NCID 
220 ORUID-TI 
20] QCI)-Ta 
200 1 -M2 
210 IF k>=39 THEN 220 
811 PE 0 îl 
al pr /2 
z12 GOTC 210 
220 II+K 
2230 NEXT 1 
370 [or k-j TOM 
ae L?=F(LD) 
iciaă LI-L9/2 
220 ud 
euLă | 1J2-0 
nNQ0 OUS-COE(PA/L() 
101 VS SIN(P1/L13 
110 FOR .-1 TOLI: 


LE, 


120 FOR 1=J TOM STEP L9 
420 LO=R(I) 

azi FI=Q(1) 

140 1Ș=1+L) 

450 T1=R(19)xU9-At 19) xuU3 
ag T2=R(19)xU9+0(49)xU9 
170 R(I19)*P9-T1 

174 Q(19)=B8-T2 

40 R(I)=D9+Ti 

452 O(1I9=B9+T2 

490. PIEXT 1 

s00 U7=U9x99 oLiSeu9 

s10 MID =2312*U|7 

520 U9=U7 


$30  MEXTuy| 

SAO NEXT K 

S<o FOR H-1 TON 

590 X (RD CCREKI XRIKD 2 1 (K)xQ(k)3) 
€O0O NEXT K 

€10 PRINT"E e 


S$20 PRINT" K REM PHAOIN-R AMPLITUDINE” 
d PRINT oo oo... can. — ......-...-- s 
ez FOR r-1 TON 

E10  FRINT ri" n; 


[ARI PRINT INT(1000O0sR(r)), IMT(10000*0(K)), ÎNT(10000xX(k)) 
po hai PRINT 

-e40 NEXT K 

-biu! END 
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Pornind de la secvenţa de N valori x (n), se generează două secvenţe de N/2 
puncte fiecare x, (n) și X2 (n), prima conținînd termenii de rang par din sec- 
vența iniţială, iar a doua termenii de rang impar: 


X, (n)=x n) 
N Xe (n)=x (2n+1) 
unde n=0, 1, 2, ... N/2—1f 
Se poate arăta că transformata Fourier discretă a secvenţei iniţiale se 


scrie făcînd compunerea transformatelor Fourier pentru cele două secvenţe 
inițiale x, (n) şi X2 (n): 


X (k)=X, (k)-+ WiţXa (k) 
unde X (k), X. (k) şi X> (k) sînt transformatele Fourier discrete ale secvenţelor 
x (n), X. (n) și X2(n) și: 
Wk —e— î(22/N) k 


Datorită proprietăţilor de periodicitate ale transformatei Fourier, relația 
precedentă se poate scrie de asemena: 


X (k)=X (k—N/2)—Wk e (k—N/2) 
pentru k cuprins între N/2 şi N—l, iar: 


Wa = Wk WR =—Wk 


12.17. Simularea salturilor unei mingi 


Se va descrie mișcarea unei mingi de cauciuc care sare sus-jos sub efectul 
greutăţii proprii și în același timp se deplasează pe orizontală cu viteză con- 
stantă. Se presupun date: înălțimea inițială de la sol (H), viteza orizontală 
(V) şi numărul de salturi ale mingii (N). Se dă de asemenea coeficientul de resti- 
tuire (C) definit ca raportul vitezelor imediat după și înainte de salt. 

Pentru a calcula poziţia mingii în timp se dă un increment mic de timp 
(D) şi se aplică legile fizicii pe acest interval:ă 

TU—+1)=T ()+D 
TIĂ (1+1)=X (D)+V*D 
Z (1+1)=Z ()—G*D 
d E IPS 
7 OY U+D=Y (D457 (D+Z (-+1))*D 
ai Sa 
Unde : 


X este deplasarea pe orizontală (iniţial nulă), Z este viteza pe verticală 
(de asemenea nulă la plecare), Y este înălțimea deasupra solului, G este accele- 
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raţia gravitaţională (9,81 m/s?). Indicii | şi 14+1 corespund valorilor diferitelor 
variabile la începutul şi la sfirșitul incrementului de timp. 


Dacă are loc o ciocnire pe durata incrementului de timp, formulele ce se 
aplică sînt puţin modificate. Prezenţa unei ciocniri este semnalată printr-o 
valoarea negativă a lui Y (141), ce ar fi imposibilă fizic. Cînd se produce aceasta, 
Z (+1) şi (+1) se recalculează ca mai jos. 

Mai întii se calculează timpul necesar mingii pentru a atinge pămiutui, 
plecînd din poziţia sa de la începutul incrementului de timp. Dacă se notează 
acest timp, DI, atunci: 


D1=D*Y (0) ((I0—Y (+) 
Se calculează apoi, viteza pe verticală imediat inainte de ciocnire a 
Z=Z (1)—G*D1 
Viteza pe verticală imediat după ciocnire va fi deci: 
Zl=—C*(Z (1)—G*D1) 
Înălțimea deasupra solului la sfirşitul incrementului de timp estea 
Y (1+1)=0.5*(Z14+Z (1+1))*(D—D1) 
«7 vitez.: pe verticală la sfîrșitul incrementului de timp: 
Z U+1)=ZI—G* (D—D1) 
Programul funcţionează astfel: 
1. Citeşte valorile H, V, N, C şi D şi testează validitatea lor 
2. Iniţializează parametrii : 
Il=] (contor de incrementare)  ă (1)=0 
B =0 (contor de salturi) Z (1)=0 
T (1)=0 Y (1)=H 


3. Calculează deplasarea pe orizontală şi pe verticală, şi viteza pe vert;: 
cală cu ajutorul formulelor de mai sus. 


4. Dacă mingia loveşte pămîntul pe parcursul increnientului de timp 
se testează dacă trebuie calculat saltul următor sau se termină progiamui. 

a) Dacă B<N se recalculează viteza pe verticală şi c; plasarea pe verti- 
cală cu formulele modificate, se incrementează contorul de salturi (B==B-+-1) 
și se trece la incrementul de timp ur:: ător. 

») Dacă B=N se calculează timpul şi deplasarea pe orizontala în mr- 
mentul ciocnirii. 

5. Afişează valorile lui X şi T urmate de o tabelare completă pentru 
Ţ. X, Y şi Z. 

6. “Frasează grajic Y funcție de TI. 
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7. Se reîntoarce la pasul 1. Dacă se introduce H=0 se iese din program. 
Programul acceptă 100 de incrementări de timp. D trebuie ales astfe; 


incit să existe între 8 și 20 de 


puncte de fiecare salt. 


Calculul valorilor T (1+1), X (+1), Z(I+1) şi Y (1+1) este efectuat 


de un subprogram. 


Se observă că de fapt programul integrează ecuaţia diferenţială d2y /dt? = 


——g 


00” REM “muwuumunununru mom e me de e 
005 REM “w» SIMULAREA SARITURII UNEI MINGI »” 
010 REM “mmmumin mm e eee e pe i meta ae e e pe me e 
015 

070 REM “INTRODUCEREA DATELOR 51 VERIFICAREA LOR” 
023 

030 DIm Yc100),Y(100),2Zt100), Tc1Q0),Dsti) 
025 PRINT "INALTIME INITIALA(M); (O=STOP)"s 
010 INPUT H 

045 IF H>=O THEN Oe0 

030 FRINT "INALTIME NEGATIVA-GROARE! * 

0% BN TG 005 

O£0 IF H=0 THEN 6400 

06% FRINT "VITEZA CIRIZONTALA(M/5)"ș 

070 INPUT vV 

075 PRINT "NUMAR DE SALTURI“: 

090 INPUT N 

025 1F N>eO THEN 100 

020 PRINT "NIIMAR DE SALTURI NEGATIV-EROARE!” 
C95 GO TO 075 

100 FRINT "CCEF ICIENT DE RESTITUIRE "3 

105 INFUT C 

110 IF Ce-i THEN 123 

115 PRINT "COEFICIENT SUFRALINI TAR-EROARE|!* 
120 GD TO 1090 

125 FRiNT “1NCREMENT DE TIMPt(S)"; 

120 I0FUT D 

1233 IF D>O THEN 150 | 
120 PRINT “INCREMENT NEGATIV SALI NUL-EROARE!" 
145 GO 7FO 125 

1%0 PRINT 

195 RCM “INITIALIZARCA PARAMETRILOR” 

140 

1E€5 E-Til)=Xc1)=2c1)=0 

1.70 Y(3)=H 

175 6-0.31 

180 

129 REM "CALCIILUL VITEZEI SI AL DEPLACARII” 
190 REM “PENTRU FIECARE INCREMENT* 


1% 
200 FOR I-t TO 92 

205 COELIE <:50 

215 IF Y(1+1))0 THEN 290 
î13 IF ErN THEN £10 

225 DI=DsY (IV /CVCLD=Y(I+1)) 
230 D2=0 

me, Z1=-Cx(Z(1)-0xD1) 

240 Z(1e1)21-GxcD-Di-D2) 
243 Y(1+19=0.5x(21+2(1+1))(D-D1-D2) 
250 E=B+l 

255 IF Y(1+19X0 THEN 280 
260 IF E=N THEN 210 

265 D2=D2+2x21/0 

270 Z1=C*21 

275  G0 TO 240 

280 NEXT 1 

282 199 

205 GO TO 32 

290 

293 PEM “ULTIMUL SALT” 

300 


310 
215 
320 
223 


cu ajutorul metodei Euler modificată. 


D=>DuYi2)/cvițo-vilea) 
GO SUD 550 

11=1+1 

ŢinTiI1) 

Yi=X0I1i) 


REM “AFISAREA REZULTATELOR NUMERICE” 


PRINT “DISTANTA ORIZONTALA PARCURSA=”: X1 3 te 
PRINT “TIMPUI CERUT="3T1p” s* 
PRINT 
PRINT “TIMP”, *DIST.0R12.”, “INALTIME”, "VI 7. VERI. - 
PRINȚ vs=ssessenenrzasmesennssenaezzasae 
FOR I=t:aTO 11 
PRINT “"T="3T(1), *X="3X(1),"Va"; Vi), "Za Zese 
PRINT 
NEXT |] 
PRINT 


PRINT "SOLUTIA GRAFICA A PROBLEMEI (D/N)* 


INPUT D'$ 

IF D$:>"D”" THEN 035 
INIT 

VIEWPOR) 20, 180, 10,90 
L=-11/10 

R-11%11/10 

B=-H/10 


Ş T-11xH/10 


WINDOW L,R,B,T 
MOVE L,R 
DRAW R,EP 
DRAW R,T 
DRAW L,T 
DRAW L,B 


REM "TRASAREA AXELOR” 


2 MOVE L,O 
a DRAW R,O 


MOVE 1,R 
DRAW 1,T 


REM "TRASAREA CURBEI * 


S MOVE 1,H 


FOR l„2 TO 1! 
DRAW 1, YI) 


D NEXT 1 
3 MOVE L,E 


GO TO 035 


REM "SUPPROGRAM DE CALCUL AL. VITEZEI SI A, - 
REM “DEPLASARII LA SFIRSITUL INCREMENTULUI” 


> Tilrid=T(1)+D 


X(l+i)ex(1)+VeD 

Z(l+1)=2(1)-GxD 
V(1+1)=Y(1)+0.5x(2(9+2)+211)1*D 
RETURN 


CO END 


12.18. Exerciţii de despărţire a cuvintelor în silabe 


Programul constituie un exemplu simplu de aplicare a învăţării progra- 
mate. Se afişează cite o regulă de despărțire în silabe, urmată de un exemplu. 
În continuare sînt date mai multe exerciţii de verificare pentru regula respec- 
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tivă. Regulile şi exerciţiile sint codificate prin DATA începînd cu linia 500 din 
program, putindu-se adăuga noi reguli și exerciții. 


10  DIH E$(32) 9 
20 Na. 1 le 2 fi Ș 
30  INIT 600 DATA * HOT A -Ri -RB o» 1 * 
40 PRINT * DESPARTIREA CUVINTELOR IN * 610 DATA * HO - TAR = IRB = 2 * 
45 PRINŢ * =-oooooonnasnasasesoss 620 DATA * HOT - AR -tRB 23 
SO PRINT * SILABE * 630 DATA * HO - TA - Rl - RS 34 * 
S5 PRINT e ------ . 640 DATA *0*,4,"*2* 
60 PRINT * REGULA 3"; îN 650 DATA 4 
70 PRINT e == :----- 660 DATA * DINTRE DOUA VOCALE SUCCESIVE * 
80  GOSUB 340 670 DATA * CARE NU FORMEAZA DIFTONG * 
90 READ Es(TO) 680 DATA ” PRIMA APARTINE SILABEI DINAINTE * 

. . 690 DATA * A DOUA CELEI URMATOARE «* 
Le BE Ei ARREEI ; 700 DATA * CE - RE - A - LE ; LU - A” 
120 PRINT 710 DATA * IN - Dl - Vi - DUA - LI - TA - TE = 1 * 
130 PRINT * EXERCITII «* 720 DATA * IN - DI - VI - DU -A - LI - TA - Tâ = 2 * 
140 READ ES(TO) 730 DATA * *0*,2,*4* 
150 IF E$(2T02) = *0* THEN”180 740 DATA * PO - DE-A - UA „1 * 
160 PRINT ES 750 DATA * PO - DEA - UA = 2 * 
170 GOTO 140 760 DATA *0*,2,"20 
1980 READ R 770 DATA S 
190 120 ?80 DATA * DACA E URMATA DE DOUA »* 
200 PRINT * RASPUNS? * 790 DATA " SAU MAI MULTE CONSOANE «* 
210 INPUT E 800 DATA ” PRIHA CONSOANA TRECE LA SILABA ” 
220 IFR E «+ R THEN 260 810 DATA * DINAINTEJCEALALTA (CELELALTE) * 
230 1 31 820 DATA * LA SILABA URPATOARE «* 

a o 830 DATA * E - XIS - TA ; CO - REC - TA ” 
sta 2 AM dul ae REGULA E IA Ul ID L-a aa i APE iii 
260 IE 1 <> O THEN 280 850 DATA * HUNT - E -N - IA = 2 " 
270 PRINT * FELICITARI * 860 DATA * HUN - T&E -N - 1A = 3 * 
280 READ E4(T0) pda LALA Ed e - NI A .q4 

a [_] e LI . 

E fate a Rae 890 DATA * PER - SON- A -LI-TA-TEei e 
310 Na. Ni 900 DATA * PERS - ON - A - LI - TA - TE 2” 
320 IF N < 4 THEN 30 910 DATA * PER - SON - AL - 1 - TA - TE = 3 * 
330 s'oP 920 DATA * PER - SO - NA - LI - TA - TE =. 4 * 
340 READ M 930 DATA »0%, 4,*'3* 
350 FOR 1. 1T0MH 940 DATA EXISTA EXCEPTII LA ACEASTA REGULA * 
360 READ FS(T0) 950 DATA 3 
370 PRINT E3 960 DATA * CIND PRIMA CONSOANA ESTE * 
380 NEXT 1 970 DATA * B,C,D,G,P,T,K,F IARA DOUA L,R * 
390 RETURN 980 DATA AMINDOUA TREC LA SILABA URMATOARE 


400 READ ES(TO) 


410 PRINT E9 


990 DATA * A - BRE - 20 - A: A CRU * 
1000 DATA * COD - RU II 


1010 DATA * CO - DRU 22 * 

pri Oa 1020 DATA 0*,2,01* 
510 DATA * DACA VOCALA E URMATA DE 0 * paie Lalea a gat Aa E 
520 DATA * SINGURA CONSOANA ACEASTA * ARE tepe A 
330 DATA * TRECE LA SILABA URMATOARE * 1050 DATA „2! 
Dao DATA UB CE 0 RAE 1060 DATA * DE - MOC - RAT 31 * 
350 DATA “ DU - NA - RE = 1" 1070 DATA * DE - MO - CRAT 2 2 « 
560 DATA * DUN-A-RE.2 e 1080 DATA So ai 
570 DATA * DUN - AR -E 1.3 1090 DATA * NI - SET - RU =. 1 * 
S80 DATA * D-UN-AR-REs4e mo ai aie tată a a dci d 

] L_] L] ] [.] ? ., Pia az 
Ş90 DATA *0",t1,"i tote 


i 19. Verificarea cunoștințelor de geografie 


miel ai Ta ED CITE 1 CEA LT AR 


Exemplul ales în cadrul programului este axat pe verii icare a cunoașterii 


reşedințelor de judeţ. Examinatului i se solicită să răspundă la 10 întrebări, 
afişind un număr de 10 judeţe alese aleator și cerînd să se introducă numele 
reşedinţei judeţului respectiv. După parcurgerea celor 10 întrebări, se afişează 
numărul de răspunsuri corecte. Dacă se răspunde greșit la o întrebare. se indică 
şi răspunsul corect. 


Programul poate fi extins fără dificultăți pentru orice gen de teste asemă- 
nătoare (verificarea cunoașterii regulilor de circulaţie, formule, definiţii etc.) 


Exerciţii de despărţire a cuvintelor în silabe 


175% 


10 PRINT * VERtEIGARUA CUNOSTINTELOR * 


15 PRINT * LA GEOGRAFIE 


. 400 DATA * JUDET N +; * RESEDINTA N 


20 PRINT * DENUMIRE JUDET - RESEDINTA * 410 END 
25  DIH-Hs(50),Ss(350),Vvs(50). 


30 N=0 
33 T2= 39 
40 FOR I 2! 170 10 


45 FOR J = 1 TO INT(RND(X)nTel) 


SO READ Ms(TO),Ss(TO) 
55 NEXT J 


60 PRINT * DATI RESEDINTA JUDETULUI *;M+ 


65 INPUT Vs(T0) 

70 IF V$ 9 Ss THEN 85 
75 H 2 Hol 

80 GOTO 90 


65 PRINT * RASPUNS CORECT AR FI *;S5$ 


90  PESTORE 
95 NEXT II 


100 PRINT ” DIN 10 INTREBARI *;H;" ATI STIUT 


110 STOP 


120 DATA * JUDET 1 *;" RESEDINTA LI * 


130 DATA . 


12.20. Verificarea cunoștințelor unui grup de candidaţi 


Iniţial, programul solicită prin dialog crearea tabelului cu întrebări. 
Fiecărei întrebări, operatorul îi asociază 3 răspunsuri posibile cu indicarea 
răspunsului corect. Se cere apoi numărul total de persoane de examinat. Pentru 


P 
l 


2 
3 
8 
S1 
6 
?7 
81 


IM B(20) 
IM U(100,30,,T(50),St50) 


MAT B „ ZER. 


NIT 

RINT * INTRODUCETI INTREBARILE? (DA/NU) 
NPUT A$ 

F A9 = “DA” THEN 1000 


PRINT * DATI NUMERE DE RASPUNSURI CORECTE? (DA/NU) 


INPUT A* 

IF A$ «= "DA" THEN 1170 

IF B(1) <> O THEN 20 

tal LA * FARA RASPUNSURI INTRODUSE * 
STo 
PRINT VERIFICARE DE CUNOSTINTE 


CITE PERSOANE EXAMINATI 


2ER 
ZER 
INCEPE VERIPICAREA * 


[] 
INPUT U 
i] 


IF U = 0 THEN 140 

PRINT G9(J+i) 

PRINT R9$(Jn3+i) 

PRINT R$(Ju3+2) 

PRINT R9(Jx3+3) 

PRINT ” DATI RASPUNSUL (1,2,3) 
INPUT R 

IF B(J+1) = R THEN 210 

PRINT * RASPUNS ERONAT * 
PRINT * RASPUNS CORECT ESTE *; 
IF U a O THEN 193 

PRINTR$( Ju3+8(J+1)(3T0)) 

GOTO 230 

PRINT B(J+1) 

GOTO 230 

PRINT * RASPUNS CORECT * 
U(1,J+l) 1 

NEXT J 

Q=0 

FOR Ka 1 TON 

Q a Q+UL(I,Kk) 

NEXT K 

T(l)2Q 

PRINT * DIN *;N;" INTREBARI CUNOASTE », 
PRINT Q 

NEXT- 1 

J.=.0 

FOR 1.1 TOM 
„J = JeTil) 

NEXT 1 

K = J/M 

PRINT * IN MEDIE CUNOSC *;K." INTREBARI 
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390 POR 1.110 
390 S(1) a (T(1)8100)/H 

400 N8XT 1 

405 REM * GRARICUL; XeNR. INTRBDARB, YeciTi STIU e 
410 INITP 

420 UINDOU =10,N+10,-10,110 

430 MOVE =10,0 

880 DRAU N+10,0 

450 HOVE 0,-10 

460 DRAU 0,110 

470 MOVE -1,23 

480 DRAU 1,23 

490 HOVE -2,50 

S00 DRAU 2,50 

S10 HOVE -1,75 

s$20 DRAU 1,75 

530 HOVE =2,100 

340 DRAU 2,100 

550 FOR 1 »1T0N 

560 MOVE 1,0 

S70 DRAU I1,Sil) 

S80 NEXT ] 

S90 STOP 

4000 REHN *» INITIALIZARB * 

1005 U=1 

1010 DIH 69(20,50),R$(3x*20,30),B(20) 
1020 PRINT * CITE INTREBARI INTRODUCETI? * 
1030 INPUT N 

1050 PRINT * DATI INTREBAREA Sl CELE * 
1055 PRINT * TREI RASPUNSURI * 

1060 FOR le 0 TO N-1 

1070 PRINT * INTREGARBA *;1+) 

1080 INPUT GS(1+1) 

1090 FOR J = 1 T03 

1100 PRINT * RASPUNSUL *;3 

1110 INPUT R$(1x3+J) 

1120 NEXT J 

1130 PRINT * DATI NUMARUL RASPUNSULUI e 
1135 PRINT * CORECT « 

1140 INPUT Bi(l+i) 

1150 NEXT 1 

1160 GOTO 20 

1170 PRINT * CITE INTREBARI AVBTI? e 
1172 INPUT N 

1175 FOR 1 <.0TON-i 

1176 PRINT * RASPUNSUL LA INTRBBAREA *;lc2 
1190 INPUT B(1+1) 

1190 NEXT 1 

1200 65070 20 


fiecare persoană în parte, se parcurge tot setul de întrebări, cel examinat indi- 
cînd de fiecare dată răspunsul pe care îl consideră ca fiind corect. la răspuns 
incorect, programul afişează pe cel corect, în vederea însușirii lui. După par: 
curgerea setului de întrebări, se afişează totalul răspunsurilor corecte date de 
examinat. 

La epuizarea ex:minării tuturor persoanelor, se afișează numărul mediu 
de răspunsuri corecte, caracteristic grupului examinat, şi se trasează graficul 
su numărul de răspunsuri cerecte pentru fiecare persoană în parte. 


12.21. Ordenarea candidaţilor după mediile obţinute 


Exemplul de faţă realizează ordonarea candidaţilor după mediile obţinute 
la 5 probe. Se introduce numărul total al candidaţilor, urmat de numele fiecărul 
candidat și calificativele obţinute la cele 5 probe. Se afişează numele candida- 

“Şilor şi media obţinută, în ordinea descrescătoare a mediilor. 


Prin modificarea liniei 17 se poate modifica numărul de probe. 
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Ss PRINT * ORDONARBACANDIDATI 
10 PRINT * DATI NUMARUL CANDI 
1% 1iIPUT N 
17 p = 5 
20  CIM A$S(N,20),M(N),C(P) 
7 HAT M = ZER 
23 PRINT " DATI NUHELE SI CALIFICATIVUL * 
30 FOR II = 1 TON 
33 INPIT AS(I(TO)) 
49 MiLl:; =0 
( var INPUT C 
a FOR IJ = 1 TOP 


LOR DUFA MEUtE * 
DATILOR * 


( Mil) = MCLDeCeIJ) 
ET NEXT 
CM) = MULD/P 
79  hEXTII 
eo 1 4 
3 Cc M(I) 
90 3 = lei 
99 Ksl 
19 1F Mi(J) <= C THEN 113 
1CĂ C = Mt) 
110 K = 
LIS IF JJ = N THEN 139 


120 3 = Iei 

125 GOT0 100 

120 REM " INVERSAREA ORDINEI * 
135 6% = ASCI(TO)) 

140 ASC) = AS(R(TO)) 

145 AS(KR) = B$ 

150 S = MU) 

195 M(l) = M(R) 

160 HK) = $ 

1c€5 1 = lei 

170 IF I<N THEN 85 

175 REM * TIPARIREA * 

180 PRINT ” NUMELE -;" MEDIP 

185 FOR | = 1 TON 

190 PRINT A$(L),ut1) 

195 NEXT | 

200 STOP 

210 END 
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Capitolul 13. | Microcalculatorul aMIC în grafică, 


jocuri, aplicaţii diverse 


13.1. Trasarea strofoidei 


Programul trasează strofoida, conform ecuaţiei: 


- X2 (X +a) 
A d area o 


Se solicită prin dialog distanţa punctului A faţă de origine. (fig. 13.1) 


S PRINT * STROFOLIA * 
10 PRINT * DATI VALOAREA A * 
15 INPUT A 

20 x = A/3 

25 Y = SOR(X*2m(X+A)/(A-X)) 
30  INITP 

35  UINDOU -Y,Y,-Y,Y 

a0 MOVE -r,o : 

45 DRAU T,0 

S0 MOVE 0,-Y A 
SS DRAU O,Y 

60 MOVE X,Y 

65 FOR X = A/3 TO -A STEP -1 
70 Y = SOR(X*2m(X+A)/(A-X)) 
75 IF X <= 0 THEN 90 

BO  DRAU X,Y 

85 GOTO 95 

90  DRAU X,-Y 

95 NEXT X 

100 FOR X = -A TO A/3 

105 Y = SAR(X*2w(X+A)/(A-X)) 
110 IF X >= 0 THEN 125 

115 DRAU X,Y 

120 GOTO 130 

125 DRAU X,-Y 

130 NEXT X 

135 STOP 

140 END 


Fig. 13.1. Strofoida. 


Trasarea cicloidei 


13.2. Trasarea cicloidei 


Programul trasează cicloida, conform ecuaţiei : 
X =r (i—sin t) 


Y =r (I—cos t) 
unde : (fig. 13.2) 
Tr este raza cercului, 


t este unghiul de rotaţie, 
A este parametru : 


A este 1 punct pe cerc 
1>1 punct exterior cercului 
A<l punct interior cercului 


Se solicită prin dialog valorile pentru r, A precum și numărul total de ci- 


cluri de trasat. 


3 PRINT * CICLOIDA " 

10 PRINT ” DATI RAZA CERCULUI * 
15 INPUT R 

20 PRINT * DATI PARAHETRUL L * 

30 INPUT L 

40 PRINT * 
So INPUT N 
55 IFN <= 3 THEN 65 


CITE CICLURI? (1,2,3) ” 


60 N=3 

6S$ A = -2xR 

70 B = Nm2mPlx” 
75  INITP 


BO  UINDOU A,B,A,B 

85 REM " TRASAREA AXELOR * 

90 MOVE A,0O 

95  DRAU 8,0 

100 MOVE O,A 

10% DRAU 0,B 

110 REM * TRASAREA CERCULUI * 
115 MOVE R,R 

120 FOR J = 0 TO 2wP1 STEP P1/10 
125 DRAU R*COS(J),R+RuSIN(J) 

130 NEXT J 

135 x =0 

140 Y = Rw(1-L). 

145 MOVE X,Y 

150 FOR J=0 TO Nx2wPI STEP P1/10 
155 X = Rw(IJ-LwSIN(J)) 

160 Y = Rm(1-LuCOS(J)) 

165 DRAU X,Y 
170 NEXT J 

175 STOP 

180 END 


Fig. 13.2. Cicloida. 


13.3. 'Trasarea epicicloidei 


Programul trasează epicicloida, după ecuaţiile: 


__ T R-+r 
X=(R-+r) cost —rcos—-t 


Rr 


R t 


Y =(R+r) sin <-t—r sin 


180 
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— 2 DD a 0000 CR 


unde : (fiu. 13.3) 


R 


r 
t 


— raza cercului fix 

— raza cercului mobil 

— unghiul format de dreapta care unește centrala celor 2 cercuri cu 
axa X. 


Forma curbei depinde de raportul r/R ; dacă r=R se obține graficul 
cardieidei. 
Se solicită prin dialog valorile pentru r şi R şi se trasează epicicloida. 


EPICICLOIDA * 
DATI RAZA CERCULUI FiX e 


PRINT 
PRINT 
INPUT 
PRINT 
INPUT L 

INITP 

A = R+2uL 

UINDOU -A,A,-A,A 

MOVE -A,O9 

DRAW 4,0 

MOVE 0O,-A 

DRAU O,A 

MOVE R,O 

FOR X = 0 TO 2»PI STEP P1/10 
DRAU R*COS(X),R*SIN(X) 

NEXT X 

MOVE R,O 

R+L 

L/R 

A/R 

2*PI»R/L 

X = 0 TO H STEP PI/10 
AxCOS(G3xX)-L*COS(CxXx) 
A*SIN(BRX)-L*SIN(C*X) 
DRAJ 2Z,Y 

NEXT X 


STOP 
Eun 


299 e. 


DATI RAZA CERCULUI NOBIL * 


NNLOW> 
o 
NUuURNuuu 


Fig. 13.3. Epicicloidia. 


13.4. Trasarea melcului lui Pascal 


Prepranu! trasează melcul lui PASCAL pe baza ecuaţiilor: 


X =2R cos? pA-u cos e 


Y 


=-2R cos 9 sin 9-a sin e 


unde (fig. 13.4): 


R 
9 


| 


este raza cercului 
este unghiul dreptei care se roteşte faţă de axa X 


este parametrul de care depinde forma curbei 
(dacă a/R==2 se obține graficul cardioidei) 


Se solicită prin dialog valorile pentru R și pentru raportul a/R (nu se 
dă valoarea direct pentru a). 


Trasarea melcului lui Pascal 18: 


S PRINT "* MELCUL LUI PASCAL * 

10 PRINT * CONC O0OIDA CERCULUI "n 

15  PRLNT " DATI RAZA CERCULUI » 

20 INPUT R 

25 PRINT " DATI RAPORTUL A/R " 

30 PAINT * FORMA CURBEI DEPINDE DE A/R * 


35 PRINT " A/R < 2 CU BUCLA " 

A/R = 2 CAPDIOIDA " 

2 < A/R < 4 FARA BUCLA * 
A/R > 4 CURBA CONVEXA ” 


60 IFN <= 6 THU 70 


65 N-=6 
70 A = NuR 
75  INITP 


80  UVINDOU -A4*R,2XR+A,-AxR, 2KR+A 
85  HOVE -4*R,O 

90  DRAU 2xR+A,0O 

95  HOVE 0,-4*R 

100 DRAU 0,2*R+A 

105 HOVE 2*R,0O 

110 FOR 1 = 0 TO 2*F! STEP P1/10 
115 DRAU R+R*COS(:),R*SIN(I) 

120 NEXT 1 

122 REM * TRASAREA CURBEI " 

125 FOR 1 = 1 TO 2*P1 STEP P1/10 


130 zZ = COSti) 

133 U = SINI(I) 

140 X = 2x*Rx2"2+AxZ 
145 Y = 2*R*ZmUr+AnU 
150 DRAU X,Y 

155 NEXT I 


160 PRINT ” MAI VRETI PT. ALT RAPORȚ?"; 
165 PRINT * (DA/u )“ 

170 INPUT L$ 

175 IF D$ = "DA* THEN 25 

180 STOP? 

1835 END 


Fig. 13.4. Melcul lui Pascal. 


13.5. 'Trasarea cercului circumscris unui triunghi 


Se solicită prin dialog coordonatele viriurilor triunghiului. 

Întrucît în program nu se calculează WINDOW-ul în funcţie de coor- 
donatele viîriurilor triunghiului, pentru a nu ieşi cu triunghiul din ecranuii! 
TV se recomandă utilizarea valorilor de la —100 la 100. 

În program se iau coordonatele a cîte două viîrfuri, se determină direcţia 
dreptei definite prin aceste două puncte: 


m BY 
RX, 
Se determină coordonatele punctului median al laturii Prin acest punct 


trece mediatoarea triunghiului eu direcția : 


1 


BR =— 
Ecuația ei (dacă punctul median are ceordonatele X, Y) este: 
y—Y =R (x—X) 


Dacă intersectăm două mediatoare obţinem coordonatele eentrului cer- 
cului (B, C) ciroumscris triunghiului. 
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i 


Din coordonatele centrului cercului şi coordonatele unui virf al triunghiu- 
lui se poate determina raza cercului. 


R=yV|B—X, + | 


Se iniţializează ecranul şi se determină spațiul utilizator: —100, 100— 
— 100, 100. Se trasează triunghiul și cercului circumscris. Se afişează coordo- 
natele centrului cercului și mărimea razei. 


1O PRINT * CERCUL CIRCUHSCRIS «* 


DiM A(2),B(2),c(2) 

3 RINT " DATI COORDONATELE VIRFURILOR * 
AT INPUT A,B,C 

So HAT D=A 

60 HATE =B 

70  GOSUB 600 

80 IF Y = 0 THEN 400 


20 SR. 
190 T=B 
110 HAT D=C 
120 HAT e -8B 


140 IF Y = 0 THEN 460 
150 Y = (SxB-Rx*T)/(S-R) 
160 IF S > O THEN 190 
179 X = (Y-B)/R 

120 GOTO 200, 


190 X = (Y-T)/5 

200 B = ABS(X-A(1)) 
210 C = ABS(Y-A(2)) 
220 R = SQR(B*2+C":2) 
230 INITP 


240 WINDOU -100,100,=100,100 

250 MOVE -100,0 

260 DRAU 100,0 

270 MOVE 0,-100 

280 DRAU 0,100 

290 MOVE A(1),A(2) 

300 DRAW 3(1),B(2) 

310 DRAW C(1),Cc(2) 

320 DRAU A(1),A(2) 

330 MOVE X+R,Y 

340 FOR 1 = 0 TO 2*PI STEP Pt/10 
3350 DRAU X+R*COS(1),Y+RmSIN(I) 
360 NEXT 1 

370 PRINT AT(1,1);"RAZA = ";R 
380 PRINT AT(2,1);"X = ";X,"YV 2 *;Y 


390 STOP 

400 MAT D= 
410 MAT E = BB 
420 G6O0SUB 600 


430 IF Y = 0 THEN S1:0 


440 s=R 
4Ş0 T-=8 i 
460 HAT D 


A 
470 MAT E =C 
480 GOSUB 600 
490 IF Y = 0 THEN 3510 
500 GOTO 1350 
S10 PRINT " PUNCTE COLINIARG * 
Ş20 G0T0 30 
600:Y =0 
610 | = D(2)-E(2) 
620 IF 1 = O THEN 730 

R = -(D(1)-E(1))/1 
640 X = E(1) 

IF E(1) < D(1) THBN 670 
660 X a Di(l) 
670 X = XrABS((D(1)-E(1))/2) 
680 Y = a(2) 
690 IF E(2) < D(2) THEN 710 
700 Y = D(2) 
710 Y = Y+ABS((D(2)-Et2))/23 
720 B = Ru(0-X)+Y 
730 RETURN 
740 END 


Graticul funcției polinomiale 183 


13.6. Graficul funcţiei polinominale 


Se introduce gradul polinomului şi valorile tuturor coeficienţilor (zero 
pentru coeficienţii care lipsesc). Se introduce apoi intervalul de definiţie al 
funcţiei şi numărului de pași în care se face trasarea graficului. Un număr 
mai mare de pași face trasarea mai exactă, dar mai lentă. Se va corela acest 
număr cu mărimea intervalului de definiţie. 


Subprogramul de la !inia 500 calculează valoarea funcţiei pentru o valoare 
dată a variabilei. La linia 170 se apelează cu limita inferioară a intervalului 
de definiţie. În bucla 200—280 se reţine valoarea minimă şi maximă a funcţiei 
(în P şi R) pe intervalul de definiție. Spaţiul utilizator se definește în funcţie 
de limitele de definiţie şi de valorile P şi R în linia 330. Se trasează axele OX 
şi OY şi forma funcției pe acest interval. 


10 PRINT * GRAPICUL FUNCTIEI POLINOMIALE * 
15 PRINT * DAT PRIN GRAD SI COEPICIBNTI * 
20 PRINT * DATI GRADUL FUNCTIEI * 

30 INPUT 0 

40 DIM C(Ge1) 

SO PRINT * DATI COBPICIGUTII“ 

60 MAT IMPUT C 

70 DIM L(2) 

90 PRINT * DATI DOMENIUL DE DERIRITIAG * 
90 MAT INPUT L 

100 PRINT * DATI NUMARUL DE PASI « 
110 INPUT H 

120 IF L(1) < L(2) THEM 150 

130 PRINT * LIMITE BROMATE * 

140 GOTO 80 

15Q H = (L(2)-L(1))/N 

160 X > Li) 

170 G0SUB 500 

180 P=F 

190 RaF 

200 FOR K= 1 TON 

210 X = X+H 

220 GOSUB s00 

230 IP F Xe P THEN 260 

240 P =pP 

250 G0T0 280 

260 IP F <= R THEN 280 

270 R=P , 
200 NEXT K 

290 IF R > P THBN 320 

300 PRINT * PUNCTIB CU VALOARB CONSTANTA *; 
305 PRINT * IN INTERVALUL DAT-s “,R 
310 STOP 

320 INITP 

330 UINDOU L(1),L(2),P,R 

340 MOVE L(1),0 

350 DRAU L(2),0 

360 MOVE 0,P 

370 DRAU 0,R 

380 X = Lit) 

390 60SUB 300 

400 MOVE X,P 

410 FOR Ka 1 70 

420 X = X+H 

430 60SUB 300 

440 DRAU X,P 

450 MEXT K 

460 STOP 

S00 REM * CALCULUL VALORII PONCTIEI * 
SI0F scut) 

520 FOR 1 = 2 100 

530 F « FnxeCii) 

940 NBXT 1 

SS0 RETURN 

940 END 
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13.7. Suma grafică a mai multor vectori 


Se solicită prin dialog numărul total N al vectorilor de insumat, măric:ea 
fiecăruia, și unghiul lor faţă de orizontală. 

Masivul L (N) conţine lungimile, iar A (N) unghiurile în grade. 

Pentru fiecare vector se calculează coordonatele vîrfului vectorului con- 
siderind vectorul din originea axelor 3 


X (0)=L (D*cos (A (1)*P1/180) 
Y (D=L (D*sin (A (1)*P1/180) 


Coordonata virfului vectorului sumă se obţine din formulele : 


N 
A= 5 X() 


i=1 


N 
Ba YI) 


i= | 


lar lungime: vectorului sumă și unghiul cu orizontala: 
L. = A2+B2 
C =(arctg (B/A))*180/PI 


10 PRINT * ADUNAREA VECTORILOR * 
20 PRINT ” NR. VECTORI DB ADUNAT * 
30 INPUT N i 

40 DIM L(N),A(N),X(ND,Y(N) 

SO PRINT * DATI MARIMEA SL UNGHIUL * 
SS PRINT * CU AXA X A VECTORILOR = 
60 FOR 1=1T0N 

70 INPUT L(I),A(I1) 

80 NEXT I 

90 FOR 1 21T0N 

100 X(1) = L(I)*COS(A(1)xP1/180) 
110 Y(1) = LCID)SINCA((1)xP(/180) 
120 NEXT 4 

130 A = X(1) 

140 B = Y(i) 

150 FOR [1 = 2 TO'N 

160 A = A+X([) 

170 B = BeYft(l1) 

180 NEXT 1 

185 INITP 

190 L = SQR(A*2+8:2) 

200 C = ATN(B/A) 

210 PRINT AT(1,1);* LUNGIMEA *;L - 
220 PRINT AT(2,1);* UNGHIUL *;G*190/P1 
230 UINDOU -1,4A+1,-1,B+i 

240 HOVE -1,0 

250 DRAU A+1,0 

260 HOVE 0,-1 

270 DRAU 0,B+1 

280 MOVE 0,0 

290 FOR 1 2=1T0N 

300 RDRAU XCI),Y(l) 

310 NEXT I 

320 M8VE 0,0 

330 DRAU A,B 

340 SToP 

350 END 
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După iniţializarea ecranului, spaţiul utilizator se stabilește în iuucție 
de coordonatele A, B, se trasează axele şi prin bucla 290—310 utilizînd instruc- 
țiunea RMOVE vectorii de adunat avînd coordonatele relative X (1), Y (1). 


Se trasează și vectorul sumă. 


13.8. Mişcarea unui punct material într-un cimp gravitațional 


Se consideră un punct material care pleacă cu viteza iniţială Vo dintr-un 
punct A și trebuie să atingă un punct B aflat la o distanţă D îiaţă de A. Mişca- 
rea punctului este dată de ecuaţia: 


Y=X tg 0—X2 
Vo cos? 
ande : 

Vo este viteza iniţială 

« este unghiul de aruncare faţă de orizontală. 


Se consideră de asemenea că între punctele A și B poate exista o dife- 
renţă de nivel N (punctele nu se află obligatoriu ambele pe axa orizontală). 


Programul solicită prin dialog distanţa între cele doua puncte, diferenţa 
de nivel între cele două puncte, viteza inițială a mobilului și unghiului său 
de aruncare. 


10  PRINY ” DALLISTIC " 

20  PRiNT " DISTANTA DE TRAGERE 
39 INPUT D 

10 PRINT * DIFERENTA DE NiVEL “ 
a3 PRINT ” POZITIV SAU NEGATIV " 
39 INPUT N 

39 N = Nu44/D 


70  INITP 

80 xXx = 10 
99 Yv = 10 
00 vV = 34 
110 2 = 10 


120 IFN >=: 0 THEN 150 

130 Y = Y-ABSI(N) 

140 GOTO 160 

150 2 a 2eti 

1860 UINDOU 0,64,0,643 

170 PLOT X,Y 

180 PLOT V,Z 

190 MOVE X,Y 

200 PRINT AT(29,2);;” VITEZA INATIALA * 
210 INPUT U 

220 PRINT AT(30,2:;* UNGHIUL (it GRADE «* 
230 INPUT U 

240 U = PlxU/180 

250 T = TANL(U) 

2860 C = S/(WeCOstU):"2 

270 120 

eRO FOR K = O TO 44 

290 A = (KaT-CuwK*2) 

3CO ORAU X+K,Ye+A 

330 1£ K < 88 TNCN33O 


320 If ABDS(Z-A) >: 1 THEN 330 
330 PRINT AT(30.2'.* LOVIT 
340. | +1. 

350 NEXT K 


360 IF 1 : | THEN 10 
„370 G0T9 190, 
: 3809 CMD -: î 
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Se trasează graficul traiectoriei punctului, specificîndu-se la sfîrşit 
dacă s-a atins sau nu punctul B. 

Dacă nu a fost atins punctul B se cere introducerea noilor valori de viteză 
inițială a mobilului și a unghiului de aruncare pină se găsește combinaţia 
adecvată. 


13.9. Generarea și modificarea unei figuri 


Programul generează desenul unui scaun văzut în perspectivă (fig. 13.5), 
solicitind prin dialog dimensiunile 1, l2, ls și lq. După generare figura poate fi 
modificată succesiv, schimbind una sau mai multe dimensiuni. Se pot obţine 
astfel o serie de reprezentări ale aceluiaşi obiect, cu diferite proporţii între 
dimensiunile principale. 

Programul poate fi extins cu uşurinţă pentru generarea de figuri mai 
complicate, generarea mai multor figuri la diferite distanțe între ele, permu- 
tarea lor etc. ajutind la proiectarea corpului respectiv. 


S PRINT * PROIECTARE ASISTATA * 

10 PRINT * DATI LUNOIME,LATIME SB2UT SCAUN * 
15 INPUT LI,L2 

20 PRINT * DATI (NALTIME SPATAR * 

25 INPUT L3 

30 PRINT” DATI INALTIME PICIOR * 

35 INPUT LA 

40 X1 = SOR(L1*:2/2) 


2 X1 

= SQR(4xL2":2/5) 
= X2/2 

80  X3 = SQR(L3*2/4) 
= I3xX3 


Y3 3 
100 A = X2?X1+X93+20 
110 B = L4+Y2+Y1+Y3+20 
120 INITP 
130 UINDOU O0,A,0,B 
140 MOVE 10,10 
150 RHOVE 0,Y2 
160 RDRAU O0,LA 
170 RDRAD X1,Y!: 
180 RDRAU X2,-Y'a2 
190 RDRAU -xX1,-Y1 
200 RDRAU 0,-LA4 
210 RDRAU O0,LA 
220 RDRAU -X2,Y2 
230 RDRAU X1,Y1 
240 RDRAU X3,Y3 
230 RDRAU X2,-Y2 
260 RDRAU -X3,-Y3 
270 RDRAU 0,-L4 
280 PRINT ” CONTINUATI (BDAz31) * 
290 INPUT C 
300 IF C + 1 THEN 20 
310 STOP 
320 END 


Fig. 13.5. Scaun văzut în 
perspectivă. 


13.10. Generarea de figuri tridimensionale 
conform legilor perspectivei 


Programul iese din sfera exemplelor demonstrative, fiind un instrument 
util pentru proiectarea asistată de calculator. Programul permite generarea 
de obiecte cu muchii drepte în spaţiul tridimensional marcat de axele OX, 
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OY, OZ. Obiectele se compun prin asocierea așa-numitor segmente de dreaptă 
unitare. Lungimea unui segment unitar poate fi modificată pe parcurs. Indi- 
carea direcţiei de trasare se face prin tastele asociate deplasărilor pe cele 3 axe 
de coordonate. Odată încheiată faza de generare a obiectului, acesta poate fi 
privit din orice punct din exteriorul său (ca şi cum privitorul s-ar roti în jurul 
obiect uiui). După dorinţă, obiectele generate pot fi completate sau modificate 
ulterior. 

Imaginea în perspectivă a unui obiect a fost creată simulind (aproxi- 
mativ) fenomenul de creare a unei imagini pe retina ochiului. S-au luat în con- 
siderare următoarele ipoteze simplificatoare : 

a) privirea este îndreptată totdeauna spre originea axelor de coordonate 

b) cristalinul este o lentilă subţire convergentă, iar retina un plan orto- 
gonal pe direcţia privirii, la distanţa de 3 cm faţă de centrul cristalinului. 

S-a utilizat formula lentilelor convergente : 


1 1 1 
NEL le le 


unde îs 13.6): 
este distanţa între obiect șI lentilă (0B) 
este distanța între obiect și imagine (0B'”) 


i 
î este distanţa focală (0F) 
A este punctul de proiectat 
P este protecția punctului A pe planul retinei 
i, j sînt versorii axelor de coordonate în planul retinei: 
i XS; e3=(0,0,1) 
|| nxes|| 
7 nxi 
| === 
| nxili 


Imaginea obţinută prin lentilă fiind răsturnată, la proiecția pe ecran 
ea va fi din nou răsturnată pentru obţinerea imaginii corecte. 


Fig. 13.6. Lenţile conver- 
gente. 


Poziţia punctului P în spaţiu se obține intersectînd planul retinei cu 
dreapta AP: 


| Băi 
n-b— || n 1[?=0 


[P.M - E -- e e 
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iar poziţia sa în plan: 
p=b—n —pl -i+ Pi ; rezultă 
pl=—tci ; pitic.) 
Se obțin astfel formulele pentru calculul coordonatelor punctului pe 


planul retinei : 


e3 ==(0,0,1) 
i = nx e, 
li nx eal| 
— “axi 
P CC SBR 
nXi || 
fiat 3 IEI) saca Nea, 
[a (n +a] 
|n] 
pl=—t.ci 
p2==—t.c:j 


Subrutina de la linia 2 000 din program aplică aceste formule la deter- 


minarea coordonateler unui punct pe planul retinei. 
Crearea imaginii unui punct oarecare notat cu C se va efectua conform 


tigurii 13.7 


Big. 19.7. Crearea imaginii unui punct. 


Din fermula lentilei rezultă: 


pica 0 ua 0 tt a 
Ha 3 m || 
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Punctul B se află la intersecţia planului lentilei cu raza de lumină paralelă 
cu direcţia privirii ce pornește din C. Vom avea: 


b=ty ne 
n -b—|| n |2=0 
de unde rezultă: 


3 „lnl—n-e = 


= nec. 
In || 


bu INITF 

10 DIM 6$(234,12),R(2S4) 

30 PRINT AT(2,1);” N = FIGURA NOUA * iu 

40 PRINT AT(3,1);* V = FIGURA VECHE NEMODIFICATA * 
30 PRINT AT(4,1);" M + FIGURA VECHE MODIFICATA * 
60 INPUT F4 


70 Jo 
73 E- 1 
80 Il» 
92 U O 
38 UV: 0 
Be W= 09 


90 GOSUB S000 

109  C9SsUB 700 

110  0OSUB 9000 

120  GOSUB 309 

130  GOSUR 3000 

140  GOSUB 2000 

150  HGUE 0+50,D+S50O 

160  G93UB 9000 

163  vOSUB S00 

166  HK5 = 0$(I,JTOJ) 

170 [F K% = "A" THEN 160 
180  LF K$ = "DD" THEN 110 
190 IF kR$ = "SS" THEN 250 
200  1F kK$ = "L” THEN 300 
2i9  00SJB 3u0Q 

220  09SU8 2000 

239 DRAW G+S50,D+959 

2490  COTO 160 

230 PRINT AT(1,1);" R 2 RELUATI 
250 PRINT AT(2,1);” SS = STOP 
270 INPUT F%$ 

280 IFR F$ a “R” THEN 20 
290 STOP 

300 IF Fs$ = "N' THEN 330 
310 6 = R(E) 

320 GOTO 370 

330 PRINT AT(1,1)5” 

340 PRINT AT(1,1); 

350 INPUT G 

350 PIE) = 6 

270 E «< El 

380 GOTO 160 

900 IF F$ <>) M THEN 610 
510  PRiaT AT(1,1);” 

520 PRINT AT(1,1); 

S3O0 AŞ = INKEYS 


9540 1! P$ = " ”* THEN 530 
$S5O  1F As = “C" THEN 6810 
560 IF A$ = "1" THEN 600 
370 IF A$ = “A" THEN 620 
580  1F A$ = “D” THEN 640 


590 GOTO 330 

50 GOSUB 9040 

610 RETURN 

620  G6$(1,JT0J+2) = “AAA” 
630 RETURN 
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640 F$ = "N" 3110 U = U-6G 
650 RETURN 3120 GOTO 3290 

700  INITP 3130 U = U+6 

710 PRINT AT(27,26);"5=2+' 3140 GOTO 3200 

720 PRINT AT(28,26);"6x2-* 3150 U = U-G 

730 PRINT AT(29,26);"7=X+” 3160 GOTO 3200 

740 PRINT AT(30,26);*8=X-: 3170 V = V+G 

750 PRINT AT(31,26);"9Y+' 3180 GOTO 3200 

760 PRINT AT(32,26);"0=Y-* 3190 V = V-6 

770 IF F$ <> "M" THEN820 3200 NEXT K 

780 PRINT AT(22,26); *C=CON!' 3210 RETURN 

790 PRINT AT(23,26);"1=iN.: 3000 [F F$ = "N" THEN 5030 
+ 800 PAINT AT(24+26); "A=ABN' 5010 6 = R(E) 

810 PRINT AT(25,26):*D=DE2' 5020 G0T0 9060 

820 RETURN 9030 PRINT AT(8,1);” MARIMEA "; 
2000 REM * CALCULE S040 INPUT 6 

2010 J3 = Lueu+M»uM 5050 R(E. =. 

2020 IF J3 = O THEN 2080 5060 E = Er 

2030 11 = -M 5070 PRINT AT(10,1);* COORDONATELE ”: 
2040 12 = 5080 INPUT L,M,N 

2050 J1 = -LuN 50990 RETURN 

2060 J2 = -MuN 9000 1 = I+1 

2070 G0T0 2120 9010 IF F3 = "N" THEN 9040 
2080 11 :0 9020 REM * LA V SI M EXISTA IN MEMORIE "“ 
2090 12 = -i 9030 GOTO 9070 

2100 J1 = -] 9040 PRINT AT (1,1);" . 
2110 J2 =0 9050 PPINT AT(1,1); 

2120 N1 = UmL+MxM+NeN 9060 INPUT 6s$(1,JT0J+2) 

2130 IF NI = O THEN 2290 9070 IF 1 < 254 THEN 2130 

2140 NI = SQR(NI) 9080 1 = 0 

2150 N2 = 11*2+12*2 9090 J = J+3 

2160 N2 =: SQOR(N2) 9100 IF J <= 9 THEN 9130 

2170 N3 2 Jl*2+J2:2+J3*2 9110 PRINT " MEMMORY FULL * 
2180 N3 = SOR(N3) 9120 STOP 

2190 N4 = LnU+MmU+N=U 9130 RETURN 

2200 NS = N1*2-N4 9110 END 

2210 IF NS = 0 THEN 2260 

2220 T = 3*N1*2/NS 

2230 C = -Tn(Uxl1+Vx12)/N2 

2240 D = Te(Ux]J1+Vx*J2+UxJ3)/N3 

22509 RETURN 

2260 c=0 

2270 D= 0 


2280 RETURN 
2290 PRINT * EROARE 


2300 STOP 

3000 FOR K = 0 T0 2 

3010 K$ = 6s5(1,J+KTOJ+K) 
3020 IF K3 = "5" THEN 3090 
3030 IF K$ = "6" THEN 3110 
3040 IF K3 = "7" THEN 3130 
3030 IF K% = "8" THEN 3150 
3069 IF K$ = "9" THEN 3170 


2070 IF Kb = "9" THEN 3190 
3080 GOTO 3200 

3090 U = 9+06 

3190 GOTO 3200 


Poziţia punctului F o aflăm din formula lentilci şi din faptul că F se află 
pe direcţia de privire: 
î=t,-n 
3|in]! 


af |j= All 
a | 


de unde rezultă: 
3 ad 
E I55 E REY, NU 
3+ lin]! | 
Imaginea punctului C (punctul A) se obţine intersectind cele două raze 
de lumină: 


a=ta (î—b)+f 


a =ta (n—c)+-n 
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Sistemul este compatibil determinat dacă vectorii (î—b, n—c) sînt 
liniari independenti. Acest fapt este echivalent cu c (b—n) 7.0. 
Deoarece (b—n) |n şi (b—n) Li, avem: 
a=t (n—c)+n ; unde: 
Ș_3linj 


a 3 piata 
2—1—— +liin. 
ra = (ra +) 


t = 


Folosind ecuațiile de mai sus, se creează imaginea obiectului care va 
trebui apoi proiectată pe planul retinei (fig. 13.8) 


2; 


Y 


Fig. 13.8. Imaginea obiectului proiectată pe planul 
retinei. 


Vom da în continuare instrucţiunile de exploatare ale programului. După 
jansarea sa în lucru, programul solicită operatorului una din opţiunile de bază: 

a) N — generarea unei figuri noi 

b) V— privirea figurii existente din diferite puncte de vedere 

c) M -- modificarea figurii existente 


Opţiunea N Se cere lungimea segmentului unitar, ce va îi utilizat în 
trasările ulterioare. Se recomandă valori cuprinse în domeniul 5—20. Aceste 
valori derivă din faptul că întreg ecranul este considerat ca un spațiu de 
100 x 100 unităţi. O valoare mai mică pentru segmentul unitar permite trasarea 
de figuri mai complexe. O valoare mai mare permite trasarea mai expeditivă 
a figurilor, riscîndu-se însă depăşirea limitelor ecranului. În acest caz se modi- 
fică punctul de vedere al privitorului, plasîndu-l la o distanţă mai mare faţă 
de obiect. 

Se solicită apoi coordonatele punctului de vedere (în care se consideră 
că se ailă privitorul). Generarea figurii porneşte implicit din centrul ecranului, 
considerat ca avind coordonatele 0, 0, 0. Prin comanda D (deplasare), se pot 
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modifica coordonatele de pornire a trasării. Aceeași comandă poate îi utilizată 
pentru părăsirea coordonatelor curente de trasare şi începerea trasării dintr-un 
alt punct. Coordonatele indicate în comanda D se raportează totdeauna relativ 
la coordonatele ultimului punct de trasare anterior. 

Trasarea efectivă a cite unui segment unitar se execută cu ajutorul urmă- 
toarelor taste : 


5-— pentru deplasare (trasare) pe axa OZ în sens pozitiv 

6— pentru deplasare (trasare) pe axa 07 în sens negativ 
7— pentru deplasare (trasare) pe axa OX în sens pozitiv 
8— pentru deplasare (trasare) pe axa OX în sens negativ 
9— pentru deplasare (trasare) pe axa OY în sens pozitiv 


0— pentru deplasare (trasare) pe axa OY în sens negativ 


La apăsarea tastei, se trasează un segment unitar în direcţia specilicată. 
In afară de trasare simplă (apăsarea unei singure taste de „direcțţie“) se permit 
şi trasări combinate din maxim 3 direcţii de deplasare. Combinația de direcţii 
indică poziţia punctului care va fi unit printr-o linie cu ultimul punct unde s-a 
oprit anterior trasarea. Astfel, dacă se indică o deplasare XYZ combinată, 
se va trasa direct diagonala cubului cu lungimea laturii egală cu segmentul 
unitar. De remarcat faptul că prin opţiunea de trasare combihată se pot face 
trasări în orice direcţii, nu numai paralele cn cele 3 axe de coordonate. 
” Dacă se doreşte moditicarea lungimii segmentului unitar s* utilizează 
comanda l.. Trasarea va continua cu noua lungime. 


Srirşitu! trasării figurii se indică prin comanda $. 


Opţiunea V Permite schimbarea poziției privitorului faţă de obiectul ge- 
nerat. Se introduc coordonatele noului punct de vedere, apoi programul tra- 
sează fără întrerupere imaginea vechiului obiect, văzut din noul punct dat. 


Opțiunea M Permite modificarea facilă a imaginii unui obiect deja gene- 
rat. 'Trasarea figurii se face pas cu pas, iar după fiecare pas se așteaptă o co- 
mandă, care poate fi: 


C — sc trece la pasul următor; 

] — se înlocuiește comanda de trasare următoare cu ceea ce dorește 
operatorul ; 

A — se abandonează comanda de trasare următoare (salt peste un pas)i 

D — dezvoltarea figurii — se consideră din acest moment trasarea ca 


și la opţiunea N. 
La terminarea trasării, operatorul poate relua ciclul celor trei opţiuni. 


Domeniile de aplicaţie pot fi multiple, începind cu exersarea vederii 
în spaţiu a diferitelor obiecte, și terminînd cu activităţi de design în arhitec- 
tură, interioare de locuinţe, construcţii de maşini etc. 


Trasare de labirint 193 


13.11. Trasare de labirint 


Se trasează un labirint de lățime și lungime dată. Generarea se face uti- 
lizînd caracterele I, —, :, .. Astfel se poate genera labirintul fără utilizarea de 
instrucţiuni grafice. I-abirintul are doar o singură intrare şi ieşire și un singur 
drum de trecere. Fiind trasat pe baza generării de numere aleatoare se obţin 
forme diferite de labirint. 


ON X SATO 770 , 910 


70 PRINTI * LABIRINI * ea A ia edu 990 S 2 Set 
20 DIM W(30, 80),vVc(30, 20) Z, ' 952 IF Ca HmvV e 
90 PRINI * LATIMEA , LLINGIMEA * Sao IF S-1 = O THEN 670 ră, sate RA btu So boii 
100 INPUT H,V Ş40 IF ăi agil 00 A a 679 340 Zoe i 
102 IF Ho< 1 THEN 108 S45 IFR=HTH 970 1F VIR,S) «e 0T 
103 IF H < 30 THEN 140 S47 IF W(R+1,S) <> O THEN 610 972 V(R,S) «3 dau 
i04 IF V< 1 1HEN 103 530 IF Ss <> V THEN 560 974 a. 0 
10% IE V < 40 THEN 140 SŞ2 IF 2 = 1 THEN 570 976 00T0 1000 
106 FRINI * DIMENSIUNI ERONATE » SS4 = 980 V(R,S) ei 
108 GOT 50 S$S6 GDTO 570 9P2 02.0 
14000 «- 560 IF W(R,S+1) <) 0 THEN 590 SA R- | 
130 Z=0 5:70 X = INT ( RND(X) * 3 + 1) 984 Sat 
160 X = INIC FND(X) He] S80 ON X GOTO 2820 , 860 , 910 938 0010 250 
164535 FOR II = 1 TOH 590 X = INT ( RND(X) » 2 + 1) 1009 GOTO 210 
170 IF 1 = A THEN 172 600 ON X GOTO 820 , 860 10540 FOR J = it TOvV 
17] FRINT îi 6410 1F S <> V THEN 630 1011 PRINT | “ş 
172 Gl 1%) 620 IF 2 = 1 THEN 660 1012 FOR 1.1 T0H 
73 PRINŢ n i 623 0 = 1 1013 IF V(I1,y) < 2 THEN 1090 
1330 NFXI I 627 GOTO 640 1020 PRINT n *; 
190 PRINŢ mu" 630 1F W(R,S+1) 4) O THEN 460 1021 GOTO 1040 
O C = 4 640 X = INT RND(X,) *2 + 1) 1030 PRINT "1 “ș 
1:24 W(X,15 = C 650 ON X GOTO 620 , 910 1040 NEXT 1 
to C = Col &c0 GOTO 820 1041 PRINT 
ma a za 680 IF W(R+1,S) <> O THEN 740 1045 IF V(I,y) e O THEN 1060 
205 Gt zic. 685 IF Ş <> V THEN 700 1050 IF V(I,J) « 2 THEN 10% 
10 TF R <> H THEN 240 690 IF 2 e 1 THEN 730 1051 PRINT “e *ş 
DIS UE ss V THEN 230 S75 0 > 1052 GOTO 1070 
220 R= i 697 GOTO 530 1060 PRINT "s-"ș 
FIE la i 700 IF W(R,S+1) 4 0 THEN 720 1070 NEXT 1 
i ATC asc 710 X e INT( RND(X) x 2+ 1) 1071 PRINT «,- 
prag oaie 720 CN X GOTO 860 , 910 1072 NEXT 
păi 3 e Sei 730 GOTO 860 1073 STOP 
D3, NUTU 250 7401IF $ <> V THEN 760 
"40 h = R+l 750 IF 2 ji THEN 780 
250 1r W(R,S) = 0 THEN 210 725 Palo E 
(A Po = 0 30 » 
ta De o eu 530 760 IF W(R,S+i) <) O THEN 780 
270 IF S-i = 0 THEN 290 Lia Ca Los 
220 1F W(R,3-1) <> 0 THEN 290 E, 
290 1F R = H THEN 830 790 W(R-1,sS) = C 
300 IF W(R+1,5) (O O THEN 830 i dude iat 
410 X = INT( RND(X) x 5 +1) ci po. ie 
2 GC > 20 , ci 2 aa 
pb ut Su 44 d dida 310 IF C = HRV + 4 THEN 1010 
234 1F Z = 1 THEN 370 515 a = 0 
238 0 = 816 GUTA 260 
340 IF W(R,S+1) O O THEN 370 830 [ = Cel 
350 X = INT( RND(X) x 8+ 1) 340 V(R,S-1) 8] 
460 [IN X GOTO 790 , 820, 910 Sia o. 
430 ON X GOTD 790 , 820 pp a a a 
390 1F R = H THEN 470 52 GOITU. Seo 
400 IF W(R+1,S) (> O THEN 470 lea agita a 
Sa a 
a i z NS Act areale 872 IF V(R,S) = O THEN 890 
420 IF W(R,S+1). 4 O THEN 450 AZO V(R,S) e 2 
430 X = INT(RND(X) * 38+ 41) 390 R = hrl 
440 DN X GOTO 790 , 860, 910 700 LE € = N + 1 THEN 1019 
ASO X = INT( RND(X) x 2* 1) Ang atita 
460 ON X GOTO 730 . 860 AIE e ala THEN CD 
470 IF S <> V THEN 490 iba iz ale Au 
pp Ela 1 THEN. Sag za IF V(R,5) = O THEN 940 
486 60T0 500 AAA Emite 
490 1F WI(R,S+1) <> O THEN 520 E O pa d 


500 


Xeo ÎNT( RND(X) 2" î) 
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13.123. Mastermind 


Jocul este o variantă adaptată a celebrului MASTERMIND, care soli 
cită determinarea unei combinaţii de 4 culori într-o ordine anumită, din 6 
culori posibile. Adaptarea s-a făcut pentru determinarea unei combinaţii de 
4 cifre din 6 posibile. Setul de ciire posibile este: 
„0 1, 2, 3, 4, 5. Se introduce o combinaţie de 4 cifre ; programul compară această 
combinaţie cu propria sa combinaţie stabilită prin randomizare la începutul 
jocului. Se afișează un “*“ pentru ciiră corectă în poziţie corectă, și un „+” 
pentru cifră corectă în poziţie incorectă. Se admite ca aceiași ciiră să apară 
de mai multe ori în cadrul combinației de 4 cifre. Scopul jocului este de a deter- 
mina combinaţia corectă din cît mai puţine încercări. Se afişează la sfirșit 
numărul total de încercări. 


9 OINITP 

10 PRINT HASTERHINĂ e 

15 PRINT * GASITI PATRU CIFRE DIN * 

20 PRINT * SASE POSIBILE 0,1,2,3,4,3 * 
25 PRINT * RASPUNSUL LA 0 INCERCARE: « 
30 PRINT * n « NR. BUN LA LOC BUN - 

35 PRINT * + a NR. BUN LA ALT LOC * 


40 L=o09 

45 DIM A(4),Bc(4) 

ŞO FOR 221 T04 

55 Yt = INT(RND(X)*6) 
40 8(2Z) -"Y 

65 NEXT 2 

70 Lo-oO 

75 PRINT * DATI O INCERCARE * 
80 L = Lot? 

85 MAT INPUT A 

90 KkK=0 


100 FOR 2z= 1 T04 

105 IF A(2) <a S THEN 115 
110 J-=- 1 

115 NEXT 2 

120 IF J = O THEN 1335 

125 PRINT * COMBINATIE ERONATA * 
130 GOTO 85 

133 FOR Z = 1 T0 4 

140 B(2Z) = ABS(B(Z)) 

145 IF A(2) <> B(Z) THEN 165 
130 K = Koet 

155 A(Z) = 7 

160 B(Z) = -B(2) 

16% NEXT Z 

170 FOR 2 = 1 TO 4 

175 6-0 

180 FOR H = 1 T0 4 

193 IF A(H) = 7 THEN 215 

190 1F A(H) > B(Z) THEN 215 
195 IF G <> O THEN 215 

200 J . Joi 

205 A(H) = 7 

210 6-1] 

215 NEXT H 

220 MEXT Z 

230 IF K = O THEN 250 

233 FOR Z = 1 T0 K 

280 PRINT "vw," »; 

245 NEXT Z 

230 IF J = 0 THEN 270 

2353 FOR 2 = 1 T0J 

260 PRINT “e,” *; 

265 NEXT 2 

270 PRINT 

273 |iF K < 4 TH&N 90 

280 PRINT * ATI GASIT DIN *;L; 
205 PRINT * INCERCARI €* 

290 PRINT * DORITI ALT JOC (DA/KU) * 
300 INPUT Ds$ 

305 IF D3 = "DA" THEN 50 

310 sroP 

320 END 


Vinătoare de vulpi 


13.13. Vinătoarea de vulpi 


Programul trasează un careiaj de N X N dimensiuni (N =10—30) în care 
plasează în mod aleator 3 vulpi. Scopul jocului este de a determina coordo- 
natele vulpilor din cît mai puţine încercări. O încercare se specifică prin coor- 
donatele punctului (X, Y), după care programul afişează un “/“ pentru punct 
liber, sau un “X“ pentru vulpe găsită. Se totalizează la sfirșit numărul de 


îneercări. 


DIM A(6),C(3) 
INLTP 

N a INT(RNB(X)»30) 

IR N >= 10 THEN 30 

Na 10 

FOR 1» 1106 

ACI) a ÎNT(RND(X)x30)P10 

IRA A(I) < N THEN 100 

A(1) 2 A([)-5 

GOTO 70 

1-0 

IF 1 C+ 2 THEN 170 

FOR ] « 1 TO 1-1 STEP 2 

IF A(I) <> A(J) THEN 150 
Mel 

NEXT J 

IF N <> O THEN 60 

NEXT 1 

MAT C = ZER 

Ma0 

U.:0 

Vo 

IMITP 

VINDOV =10,N+10,=10,N+10 
PRINT AT(1,1);" VINATOARE DE VULPI * 
PRINT AT(2,1);* GASITI TREI VULPI *, 
PRINT "INTR-O ZONA DE *;N;"/";N 
FOR 1 =O0 TON 

MOVE 0,1 

DRAU N,L 

MOVE 1,0 

DRAU I,N 

NEXT 1 

PRINT AT(28,1);* . 
PRINT AT(28,1);” COORDONATA *; 
MAT INPUT B(2) 

Va V+l1 

FOR J = 1 T0 5 sTeP2 

IF A(J) GO B(1) THEN 530 

IF A(J+1) <> B(2) THEN 530 

1 * INT(J/2)+i 

IF C(1) = 0 THEN 420 

PRINT AT(28,1);* VULPE DEJA GASITA » 
GOTO 520. 

PRINT AT(28,1);” ATI GASIT 0 VULPA * 
C(l) «1 

MOVE B(1),B(2) 

DRAU B(1)+1,8(2)*1 

HOVE B(1),8(2)-+1 

DRAU B(1)+1,B8(2) 

U = Uol 

IR U <> 3 THEN 520 

PRINT * ATI GASIT DIN *,v; 
PRINT “LNCBRCARI * 

Hei 

Je3 

NEXT J 

IF M <> 0 THEN 20 

MOVE B(1),B(2) 

DRAU B(1)+1,B(2)+) 

GOTO 310 

EAD 
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13.14. Verificarea vitezei de reacţie 


Programul afișează într-o poziţie aleatoare pe ecran o cifră (0—9) şi 
așteaptă un timp determinat introducerea aceleiaşi ciire de către operator. 

Se solicită iniţial viteza de joc (1—5), viteza 1 fiind cea mai mare. 33 
afişează permanent scorul pe ecran. Din start, jucătorul primeşte 5 puncte, 
Pe parcurs, modificarea scorului decurge astfel: 

— pentru o cifră introdusă corect, se adaugă un punct; 

— pentru o cifră incorectă, se scade un punct; 

— pentru nici o ciiră introdusă în intervalul de așteptare, se scad 2 puncte. 

Oprirea programului are loc la atinverea scorului nul. 


3 INITP 

10 PRINT "REFLEXUL 

15 PRINT * SE AFISEAZA ALEATOR 0 CIFRA *; 
20 PRINT "PE ECRAN * 

23 PRINT * BATETI CIT MAI REPEDE TASTA *; 
30 PRINT “RESPECTIVA «* 

35 PRINT " DIN START PRIMITI S PUNCTE «* 
40 PRINT * +1 PUNCT LA TASTA BUNA * 

42 PRINT * -1 PUNCT LA TASTA ERONATA * 
44 PRINT * -2 PUNCTE DACA NU TASTATI * 
45 Las 

SO PRINT * DATI VITEZA DE JOC (1,2,3,4,3) « 
535 INPUT N 

60  INITP 

65 PRINT AT(1,1);* REFLAXUL 
70 PRINT AT(2,1);" SCORUL: *;L 

75 IF L < 1 THEN 220 

80 A = INT(RND(X)m9)ra8 

83 89 = INKETYTS 

90 X = INT(RND(X)x26+4) 

95 Y = INT(RND(X)n29+1) 

100 PRINT AT(X,Y);CHRS(A) 

105 A9 = INKEYS$ 

110 FOR 1 = 1 TO 100x*N 

115 IF.A$S <> B$ THEN 125 

120 B9 = INKEY% 

123 NEXT 1 

130 IF B$ = A$ THEN 195 

133 a = 

140 FOR 1 „0 T09 

145 IF 8% = STR$(I) THEN 153 

150 G0T0 165 

155 IF 1 <> A-48 THEN 163 

160 GQ =2 1 

165 NEXT 1 

170 IF a = î THEN 163 

175 La L-i 

180 GOTO 200 

185 L = Lei 

190 G0T0 200 

193 L = L-2 

200 FOR 1 = 1 TO Nu100 

205 REM * PAUSE » 

210 KREXT 1 

215 GOTO 70 

220 SToP 

2235 END 


13.15. Perspico 


Jocul constă în alinierea a trei O-uri în linie sau diagonală, în eadrul unui 
careu de 3X3. Fiecare căsuţă din careu primeşte un număr (1—9), utilizab 
pentru indicarea locului în care se plasează O-ul jucătorului. Ga răspuns, pre- 
gramul plasează un X într-o poziție defavorabilă pentru jucător, căutînd 
la rîndul său să alinieze trei X-uri. La sfirşit se afișează cîștigătorul. 
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3 PRINT - PER SP ICO” 280 D=» 3 

190 DIR B(9),P(9) 205 Pai 

159  INITP 290 GOSUB 360 

20 FOR A = 1 709 295 C =. 

25 Bia. A 300 D=s 

30 NEXT A 305 SOSUB 360 

25 MAT P = 7288 310 Ca. 7 

40 £ 0 315 Da. 9 

45 0.0 320 GO0SUB 3609 

SO N.=09 323 Cc. 3 

55 xXx. 330' D=. 7 

640 PRINT AT(X,3); 335 Ra 2 

65 FORA = 1 T09 340 GO0SUB 360 

70 IFA. X THEN 90 345 G = Get 

75 |IF B(A) = 0 THEN 110 350 |A GQ. 3 THEN 50 
90 IF B(A) » 10 THEN 129 355 GOTO 2i53 

93 GOTO 130 360 E =.0 

90 X » X*3 365 Ua i 

95 PRINT 370 FOR A = C TO D STEPA 
100 PRINT AT(X,3)e 975% E a E+P(A) 

10% GOTO 79 380 N8XT A 

110 PRINT *0*;" *; 385 Ii EA « 3 THEN 440 
11% GOTO 13% 390 IRA Ga O THEN 435 
120 PRINT "xX",;" *; 395 IF E » 8 THEN 470 
12% GOTO 139 400 1F Ge. 1 THEN 833 
130 PRINT BA); *,; 405 if 8 «= 2 THEN 470 
139 NEXT A 410 IF 0 a. 2 THEN 433 
140 lFE N a. 1 THEN 210 415 IR E „. SŞ THEN 470 
145 IF E <>) 8 THEN 160 420 Ii G = 3 THEN 435 
150 PRINT AT(15,1);* AM CISTIGAT 425 IR E «. 1 THEN 470 
15% GOTO 843 430 IF 8 « 4 THEN 470 
160 PRINT AT(13,1);* MUTAREA * 433 RETURN 

165 INPUT 2 440 PRINT AT(13,1);* ATI CISTIGAT * 
170 IF Bi2»; <>) 2 THEN 163 445 PRINȚ AT(17,1);" DORITI ALT JOC (DA=l) * 
175 Na 450 INPUT 0 

189 Q : Qei 4535 IF Da 1 THEN 195 
185 B(2) 20 460 STOP 

190 P(2) =. 1 470 FOR A.C TO D STEP P 
195 IF Q ce O THEN 53 4735 IF B(A) C2 A THEN 300 
200 PRINT AT(15,1);* REMIZA 480 IE U = 0 THEN sS00 
209 6070 8735 483 B(A) = 10 

210 6-0 490 P(A) = 4 

215 c 21 495 U»0 

220 Da. 7 500 NEXT A 

223 F-=- 3 505 GOTO 50 

230 GOSUB 360 510 END 

233 Cc. 2 

240 D=. 

2455 00SUB 360 

250 C 23 

2335 D=? 

260 G05U8 360 

263 Cat 

270 Ș +a 

275 GOSUB 360 


13.16. Cursa de obstacole 


Se conduce un mobil printr-o configuraţie de obstacole generată aleator 
pe ecran. Deplasarea mobilului are loc de la dreapta la stinga ; jucătorul are 
posibilitatea de a muta cu un rînd mai sus sau mai jos direcţia de înaintare, 
apăsînd tasta S, respectiv J. Dacă nu se apasă nici o tastă, mobilul își continuă 
deplasarea în linie dreaptă. La lovirea unui obstacol, se oprește înaintarea 
şi se afişează scorul. Valoarea scorului indică distanţa parcursă pină la lovirea 
obstacolului. După parcurgerea unui ecran complet, se reia mișearea mobilului, 
m odificînd locul de apariţie al acestuia şi combinația de obstacole. 
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10 PRINT * CONDUCETI VEHICOLUL PRINTRE *; 


15 PRINT “OBSTACOLE * 


20 PRINT * VEHICOLUL SE DIRIJEAZA CU *; 


25 PRINT “TASTELE * 

30 PRINT * S= SUS , J= 10 se 
40 DIM D(30,30) 

so sSa=o0 

60 MAT D a ZER 

70  INITP 

60 FOR A 2 1 T0 SO 

90 X = INT(RND(X)n29)+h 
100 Y = INT(RND(X)u29)+i 
110 PRINT AT(X,Y); "= 

120 B(X,Y) 1 =: 

130 NEXT A 

140 P su INT(AND(X)n29)+1 
150 FOR A = 30 TO 1 STEP -i 
160 PRINT AT(P,A);"ce 

170 1F B(P,A) = 1 THEN 310 
180 PRINT AT(P,A);"a" 

190 2$ = INKEY+ 

200 1F 26 = * * 1.Eh 280 
210 IF 29 = "*J" THEN 260 
220 IF 29 (> *S* THEN 260 
230 IF P =.1 "HFN 260 

240 P a P-i 

250 00T0 280 

260 1P P 1. 30 THEN 280 

270 P « Poi1 

280 * n Ş+i 

290 NEXT A 

300 00T0 40 

310 POR Z e i! TO 20 

320 PRINT AT(P,A);"9* 

330 PRINT AT(P,A);" * 

340 NEXT 2 

350 PRINT AT(2y,1);“ SCORUL *;s 
360 FOR 1 = 1 TO 100 

370 REA * TIN8 * 

990 NEXT 1 

390 s0T0 so 

400 END 


13.17. Tragerea la ţintă 


Pe ecran se afișează o ţintă, considerată ca fiind în faţa privitorului. 
Se introduce viteza iniţială a proiectilului şi unghiul înălțătorului. Programul 
consideră ţinta ca fiind la o distanţă aleatoare față de trăgător. Din datele 


in“roduse, pe baza formulei: 


S=VA sin « ls i] 


unde : 
S este distanţa parcursă de proiectil; 
V, este viteza” iniţială ; a 
e este unghiul înălțătorului; 
g este acceleraţia gravitaţională. 2 
Se determină dacă s-a atins sau nu ţinta. 


Dacă ţinta nu a lost atinsă, se afișează distanţa la care a căzut proiectilul 
faţă de ţintă („+” pentru lovitură prea lungă, „—-“ pentru lovitură prea seurtă). 
Se caută lovirea țintei din cit mai puține încercări, pe baza coroborării datelor 


faişate pentra loviturile în gol. 
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20 PRINT AT(1,10);“" TINTA, 
30 PRINT AT(3,195.;"'a: 


40 PRINT AT(4,10); . 
50 PRINT AT(3,10); ” 
60 PRINT AT(6,10); “ 


70 PRINT AT(8,1);* VITEZA UNGHIUL "”; 
75 PRINT * DISTANTA = 
60 PRINT al d, 1); Mao oo... ...-.......t; 


1 
110 X = IîÎNT(RNO(X)x15000+50) 
KX = Ret 

122 IF K <e32 THEN 130 

125 K » 32 

130 PRINT AT(3,22);*)*;Q;"c 

1840 PRINT AT(10+Kk,1);*7%; 

150 ÎîMPUT v 

160 IF V <10 THEN 140 

170 PRINT AT(10+Kk,10);">0; 

180 INPUT U 

190 1F U < 3 THEN 170 

200 1F U > 899 THEN 170 

210, 2 = INT(V*a2uSIN(Plnu/90)/9.81) 

220 EB = 2-xX 

230 PRINT AT(10+K,20);8 

240 IF 2 = X THEN 270 

2350 Q = Q*i1 

260 GOTO 120 

270 PRINT AT(13,1);* NINERIT * 

2800 PRINT AT(15,1);” DORITI ALT JOC (DAzi) * 
290 INPUT D 

300 1F D - î THEN 10 

310 SToP 

320 END 


13.18. Ecranul magic 


- mg Programul permite trasarea oricăror figuri compuse din drepte orizon- 
tale și verticale, pornind dintr-un punct dat inițial. Deplasarea punctului este 
coordonată de tastele : 


1— dreapta 3— jos 
2-— stinga 4— Sus 


Punctul se deplasează continuu, oprirea trasării făcindu-se prin apăsarea 
oricărei taste în afara celor de mai sus. Reluarea trasării se face prin apăsarea 
oricărei taste de comandă a direcţiei de deplasare. 

Direcţia de deplasare poate fi completată, pentru a avea posibilitatea 
trasării sub un unghi oarecare faţă de orizontală. Dacă se dorește o trasare 
la un unghi de 45* în direcția dreapta-sus, se introduce linia 105 de recunoaştere 


cea, 


a tastei “9 


195 IF A$ =="'5'”” THEN 599 

La linia 500 se introduce secvența de trasarea 
590 REM “DEPLASARE 45 DREAPTA SUS“ 
519 B$=INKEY $ 

529 IF Y=100 THEN 570 

539 IF X=190 THEN 570 


540 X=X+1 
550 Y=Y+i 


5690 DRAW X, Y 
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570 A $=INKEY$ 
580 IF A $=B$ THEN 520 
599 GOTO 6 


Programul poate fi generalizat pentru trasări pe alte direcţii, trasări 
de linii curbe etc. 


5 OINITP 
10 PRINT AT(1,1);* ECRAN MAGIC e 
15 PRINT AT(2,1);* 1a DREAPTA» 
20 PRINT AT(3,1);* 22 STINGA « R 
25 PRINT AT(4,12;* 3» 30S e 

30 PRINT AT(5,1);* 4 Sus e : 
35 PRINT AT(6,1)3* COORD. DA ÎîNCOPUȚ e; 
40 INPUT X,Y 

43 MOVE X,Y 

SO A9$ = ([NKEYe 

60 IFR A$ = * * THEN SO 

70 IF AS « “1 THEN 120 

90  LF A$ = *2* THEN 200 

90 LE A$ m *3* THEN 280 

100 IP A$ 2» *4* THEN 360 

110 GOTO 50 

120 REM * DEPL. DREAPTA * 

180 B$ = ÎNKEYS$ 

140 IF X = 100 THEN 170 

150 X » X+i 

160 DRAU X,Y 

170 AS = (INKEYS 

180 IF AS = 86 THEN 140 

190 GOTO 50 

200 REM * DEPL. STINGA * 

210 85 = INKEY+ 

220 IF X 2 0 THEN 250 

230 X = X-1 

240 DRAU X,Y 

250 A$ =» INKEY3 

260 IF A9 = 85 THEN 220 

270 G0T0 so 

28Q REM * DEPL. 103 * 

290 BsS = INKEY5 

300 IF Y = 0 THEN 330 

310 Y » Y-l1 

320 DRAU X,Y 

330 A$ = INKEYS$ 

340 IP A9 = B9 THEN 300 

350 GOTO 50 

360 REM * DEPL. SUS « 

370 89 = INK8YS 

380 IR Y = 100 THBN 410 

390 Y n Y+i 

400 DRAU X,Y 

410 09 = INKBYS 

920 IF A9 - 85 THEN 390 

030 G0T0 50 

990 END 


13.19. Nim 


Jocul Nim — originar din China antică — este cunoscut și sub numele 
de Fan-Tan. 


Se generează într-un număr oarecare de grămezi un număr aleator de 
obiecte. Jucătorii (în cazul de faţă operatorul și calculatorul) elimină cu schim- 
bul obiecte din grămezi, și anume cel puţin un obiect (cel mult toată grămada), 
dar la un moment dat numai dintr-o singură grămadă. 


Ciştigă cine scoate ultimu sau ultimele obiecte din ultima grămadă 
rămasă. 


20 k 


O grămadă de obiecte se reprezintă printr-o linie de. asteriscuri (un aste- 
risc reprezintă un obiect). Numărul total de grămezi se stabilește de operator 
la începutul fiecărui joc. Numărul obiectelor din fiecare grămadă se generează: 


aleator la începutul jocului. 


10 DIN A(10),B(10,5),0(5),Vi(10) 
15 PRINT “N-1-H" 

20 PRINT * CU CITE GRAMEZI JUCATI? * 
30 INPUT N 

40 IF N <a 0 THEN 20 

50 IFN)Y> 9 THEN 20 

55 MAT Va ZER 

60 REM " GENERAREA GRAMEZILOR * 
70 FOR 1.1 TON 

90 ACI) =. INT( AND(X) x 30) 
$5 IF A(L) » O THEN 80 

90 NEXT 1 

95 GOSUB 2050 

100 PRINT * DIN CARE GRAMAUA Si CITE *, 
105 PRINT * OBIECTE LUATI? 
130 INPUT 1, K 

120 IF 1) N THEN 230 

430 IF 1 < 0 THEN 230 

340 1FK > ACI) THEN 230 

150 IF K < 1 THEN 230 

160 Vi) „K 

170 GOSUB 650 

180 REM * JOACA CALCULATORUL * 
190 GOSUB 1300 

200 GO3UB 650 

210 IF C <> O THEN 290 

229 GOTO 95 

230 PRINT * EROARE * 

240 GOTO 93 

290 1F C = —i THEN 320 

200 PRINT * AM CISTIGAT * 
310 STOP 

320 PRINT * Al CISTIGAT * 
220 STOP 

e50 FOR le it TON 

660 ALI) e A(Ț) = VII) 

70 VU) mo 

€ez0 NEXT 1 

€::0 RETURN 

1450 MAT B = ZER 

1350 MAT O = ZER 

130 FOR Ua 1 TON 

1370 M = ALU) 

1400 FOR Ia 1T05 

3410 BUU,I) 2 M=- INT(M/2 9) 2 
1420 M = INT( M/2) 

1430 QCI) = BU,I) + 0rI) 
1440 IF O(I) > 1 THEN 1460 
1450 GOTO 1470 

14.0 O(I) = 0 

1470 NEXT 1 

1475 NEXT U 

1440 W=0 

144% FOR U.a 5 TC 1 STEP = 
14290 IF OtU) <3 0 THEN 1510 
1500 'G0T0 1530 

1S10W=uU 

1520 ua 

1530 NEXT U 

15401F W <> O THEN 1570 

1550 GO%UB 1600 

1560 RETURN 

1570 GOSUB 1730 

15:30 RETURN 

1600 MW = 0 

163b FOR Je NTO1 STEP - 
1£20 IF ACU) <> O THEN 1440 
1630 GOTO 1€60 

16240 WU =uJ 

1650 J=1 


1060 NRII 

1570 1F wW <>) O THEN 1700 
In20 cozi 

1:3%0 RE TURN 

17 is 0 

1705 JdaaW 

1710 VU) = ALU) e ÎNT(CA(JD-A)oRND(KD5D: 
1720 RETURN 

1730 Ue o 

1740 FOR l = 1 TON 

1745 1F£ B(I1,w) €) 1 THEN 1760 
1750 B(1,W) „0 

1752 Ul 

1755 1l„N 

1760 NEXT |] 

1770 FOR Je W-i TO 1 STEP -j 
1775 1F 0Ot(yJj) «a 0 THEN 1790 
1780 B(U,J) = îs = BtU,) 
1790 NEXT J 

4795 12 U 

13800 FOR Je S5TO 1 STEP -i 
1810 V(1) e 2 n Vi) + B(I,J) 
1820 NEXT JI 

1830 V(I) «e A(I) — VII) 

1340 S=» 0 

1850 FOR Je 1 TON 

19360 S= S + A(y) = VIU) 
1870 NEXT J 

1880 IF S = 0 THEN 3910 să 
1890 C„.oO gs 
141900 RETURN îi 
1910 C-: 

1920 RETURN 

2050 FOR 1 = 1 TON 

2060 IF A(1) „= 0 THEN 2100: 
2070 FOR J= îi TO ALI) 

2080 PRINT *x"p. 

7090 NEXT J 

2100 PRINT 

2110 Vi(]) „0. 

2120 NEXT 1 

2130 RETURN 
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13.20. 'Turnurile din Hanoi 


Jocul este cunoscut şi sub numele Acele Faraonului şi constă în a trans- 
era un set de discuri aranjate în ordine descrescătoare a mărimii lor de pe 
„primul ac pe al treilea ac, utilizînd ca element ajutător acul din mijloc. Regula 


100 FEM * TURNURILE 0OIN tIANQI ” 

110 DIM T(1O,7 

1z0 E =0 

I2O0MAT T = ZER 

140 PRINT * TURNURILE DIN HANOI ” 

150 PRINT * DISCURII.E SE MUTADIN STINGA * 
155 PRINT * IN DHEAPTA SI NU SE PINE DISC * 
160 PRINT * MAI MARE PE UIEC MAL MIC ” 

200 PRINY * CU CITE DISCURI JUCAT (MAX 10) * 
alo INPUT S 

230 M=c ov 

240 IF £ 3 0 TIIEN 2680 

250 GOT 27U 

200 IF 5 <atO THEN 330 

470 € s Eri 

250 IF E 3 2 THEN 310 

290 PRINT * DATI NUMAR CORECT 1 - 10 * 

300 5OrO a00 

310 PRINI * NU JICATI CORECT * 

320 STUP 

350 PRINT * IN PROGRAM DISCURILE SINT BOTEZATE * 


360 FRINT * PRIN NUMERE ZECIMALE 1 LA 10 ” 

370 PRINT * DACA JUCATI CU MAI PIITIN DECIT 10 * 
380 PRINT * VETI JLICA CU DISCURI LE NUMERE CELE * 
285 PRINT * MAL MARI * 

380 PRINT * MUTATI DE PE ACUL 1 PE ACUL 3 & 

400 Ys= 10 

410 Da 10 


420 FUR Xa £ TO 1 STEP -i 

420 T(Y,Ll) =D 

440 D= D-i 

450 Y = Y-l1 

460 NEXT X 

470 GOSUB 1240 

430 PRINT AT(27,1)3* CARE DiSC ÎL MUTATI? > 
490 £ 0 

500 INPUT D 

“10 1F D 3 10-$ THEN 330 

520 GuTu 40 

Ss30 IF D <a 10 THEN S$80 

S40 PRINT * DISC INEXISTENT * 

550 € s E+i 

s60 IF E > 1 THEN 310 

3:70 GITO 450 

520 REM * VERIFICA DACA DISCUL E SUB ALT Disc * 
sat Aa 1Q 

S%0 ns s3 

s9$ FOR Ra 1 TO 10 

600 FOR C = 1 T03 

605 1F T(R,C) <> D THEN 630 

SioAz FR 

61: Cac 

620 Re 10 

625 Ca 3 

630 NEXT C 

435 NEXT R 

&40 IF T(A-1,B) (> O THEN 670 

645 GOTO 700 

470 PRINT * DISCUL E SUD ALT DISC ” 
20 GUTO 430 

700 E =0 

730 PRINT * PE CARE AC ÎL MUTATI? *3 
720 INPUT N 

730 TF (N-39)x(N-2)x(N-3) 2 O THEN 800 
740 £ 2 C++ 

750 2F E > 1 THEN 310 

7640 PRINT * DATI NUMAR CORECT 3, 2, 3 
770 GOTO 710 

3800 A =0 

:205 FOR Ra 1 TO 10 
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810 IF T(R,N) = 0 THEN 023 

815 AR 

820 R » 10 

92% NEXT R 

R30 IFA e. 0 THEN 870 

935 REM ” VERIFICA SA NU S& PUNA DISC MAI ” 
336 REM * MARE PE MAL MIC * 
940 IF D < T(A,ND THEN 070 

550 PRINT * DISC MAI MARE PE MAI MIC NU SE POATE ” 
8640 GOTO 480 

870 FOR v = 1 TO 10 

87% FOk W= 1 T03 

880 IF Tiv,wW „ D THEN 890 

RAS GOTO 910 

490 A».v 

ae, =] e W 

300 V = 10 

“0% Wa. 3 

210 NEXT W 

<1«. NEXT V 

920 FOR U. 1 TO 10 

22% IF T(U,N) = 0 THEN 950 

930 1 e. U-i 

Ce, ua 10 

“40 bUTO 940 

950 Xa 10 

30.0 NEXT U 

270 T(X,N) a T(A,B) 

980 7 (A,B) 20 

%90 REM ” TIPARESTE STAREA ACTUALA “ 
1000 GOD3IB 1240 

1010 Mm Mei 

1013 A=20 

1020 FOR Ra 1 TO 10 

1030 FOR C =. 1 T02 

1040 IF T(R,C) » O THEN 1060 

1US0 A. 

1040 NFXT C 

1070 NEXT R 

100 1FAn O THEN 1120 

1090 IF M <= 2*S THEN 400 

1300 PRINT * ATI DEPASIT NUMARUL DE PASI MINIM * 
110% PRINT ” NECESARI * 

1110 STOP 

1129 PRINT * ATI REZOLVAT ÎN “Mr” PASI ” 
11840 PRINT ” MAI JUCATI? (DA/NU) * 
1152 INPUT A$ 

13160 17 A$ a "DA" THEN 120 

1170 SToP 

1240 INITP 

120 A e 26 

1260 FOUR Ka 1070 1 STEP = 

1270 2Z= 5 

1280 FUR 1= 1 T03 

1230 IF Tu, a 0 THEN 1340 

12200 PRINT AT(A, Z-INȚ(T(K,J)/2)01)3 
13210 FOR V = 1 TO T(k,y) 

1320 PRINTI “ag 

ta30 NEXT V 

1240 2 = 2+10 

Vas NEXT 

lao A A-3 

1273 FRINT 

4 a::0 RETURN 


de bază a transferului specifică obligativitatea mutării unui disc mai mic peste 
unul mai mare, niciodată invers. 

În jocul realizat pe calculator se permit maxim 10 discuri. Discurile sînt 
reprezentate prin asteriscuri. Numărul de asteriscuri care formează discul 
reprezintă mărimea discului. Paşii necesari pentru a termina jocul sînt 2"-:, 
unde n reprezintă numărul de discuri în joc. Dacă iucătnrul au termină în 
număr de paşi necesari, se opreşte jocul. 
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13.21. Jocul cu trei grămezi 


Se generează trei grămezi cu diferite numere de obiecte în fiecare grămadă. 
Jucătorul mută dintr-o grămadă oarecare într-o altă grămadă un obiect în 
contul unui obiect din a treia grămadă care se elimină din joc. Iniţial cel puţin 


$ (tu1fP 
10 PRINI * JMOCIUL CU TREI GRAMEZI * 
12 PRINŢ e con... - 


15 PRINT * SE DAU TREI GRAMEZI PRIN - 

20 PRINT * NUMERELE DE OBIECIE IN ELE ”* 

25 PEINT * JOCUL CONSTA IN A MUTA UN OLIECT * 
30 PRINT ”* UINIR-O GRAMADA ÎN ALTA IN * 

35 PRINT “* CCINIUL UNUI OBIECI DINA TREIA i 
40 FRINT * CARE SE ELIMINA DIN .MO * 

45 PRINT * ECOUL ESTE LE A AJUNGE LA DOUA * 
SO PRINT * GRAMEZI GUA!E SI INA TREIA * 

SS PKItII * SA RAMINE UN SINOIIFE ORIECI * 

40 PRINT * GRAMEZILE SE INDICA PRIN 1, 2. 3 * 
Su DIM T(3) 


90 T(13 » INT( ANII) e 1% + 1) 
95 [(2) a INT (CRNO(X) a 19% + 4) 
100 Tia: = INI (AND(XD 5 19 + 1 3 
105 N = INT( AND(X) *» 2 + 1) 

110 Ms INI( RND(XD) x 2 + 1) 


115 1FNaM THEN 110 

120 Pc. 1 

125 IFP a N THEN 140 

140 IFPaM THEN 140 

135 GOTO 150 

140 Ps Po+ il 

145 GOTO 123 

150 IF INT(T(N)/2) e T(N)/2 THEN 165 
155 1F INT(T(M)/29 e T(M)/2 THEN 190 
140 GOTO 205 

155 1F IN1(T(M)/29 e T(M)/2 THEN/175 
170 GUITO 205 

175 IF INT(T(P)/2) co T(P)/2 THEN 205 
30 T(PD = INT( AND(X5) e 1> +1) 
125 GOTO 175 

170 1F INT(T(P)/2) e T(P)/2 THEN 205 
173 T(FD) a NIC AND(X) n 19 + 1) 
200 GO 190 

20% PRINT * INCEPEM UN JOC (DAe 19 * 
210 INPUT D 

215 IF D= 1 THEN 225 

220 GOTO 210 

225 INITF 

230 l=1 

233 PRINTI AT(I,5)3T(1)4“ 3  “sT12)30 şi “31499 
c40 le le-a 

24% IF 1 <€ 30 THEN 255 

230 101 223 

2 PILINI AT(31,2)ş" d 

260 FRINT AT(30, 2)" DIN CARE = ÎN CARE * 
25 PRINTI AT(GL 2); 

270 INPUT D,E 

ara + D= E THEN 255 

75 IFD > 2 THEN 255 

40 IF E > 3 THEN 253 

2:20 a 0 

25 FOR Je 1 T03 

>0 IF Oa J THEN 310 

2>% 1F E <> J THEN 310 

200 TD a TD ed 

2093 GRTO 315 

210 TD 2 79) i 

zi TF TA = =i THEN 390 

31% NEXT yJ 

zile IFA = 4 THEN 410 

20 Ka 0 

325 La 0 

320 FOR Ja 1 T0 3 

33 IF Ti) > 0 THEN 350 

340 KaKe+ ai 

24% GO0T0 355 


Jocul cu trei grămezi 205 


350 L = TI) 

3955 NEXT J 

360 IFK <> 2 THEN 23% 
Io IF LL = 1 THEN 380 


370 PRINT AT(30,1);* NU ATI AJU .. 
373 GOTO 90 L JUNS LA REZULTAT BUN 


330 PRINT AT(30, 103” ATI AARINS LA REZULT ui 
325 GOTO 70 zica 
390 ENI 


în două grămezi trebuie să existe obiecte. Scopul este ca în final să rămînă 
un singur obiect într-o grămadă, celelalte să fie goale. 

a - Se poate demonstra că dacă in toate trei grămezile există inițial obiecte 
în număr par sau impar (deci sînt de aceeași paritate) atunci jocul nu are 
soluție. Dacă la două grămezi paritatea este aceeaşi și a treia are altă paritate, 
jocul are soluţie și în final acele grămezi vor fi goale care au avut aceeași pari- 
tate, rămînînd un obiect în grămada cu paritate diferită. 


13.22. Ruleta 


Un joc clasic de noroc este ruleta. Simularea pe calculator scoate în 
evidenţă doar țelul ca jucătorul cu suma de bani inițială să rămînă cît mai 
mult în joc, nu latura de noroc. 

În cazul de față se generează aleator numărul și culoarea cîștigătoare. 
Jucătorul poate miza prin numere între 1 și 50 cu 5 pînă la 500 de unităţi de 
bani cu mai multe mize. Iniţial jucătorul are la dispoziţie 1000 de unităţi 
de bani. 

„Mizele sînt după cum urmează . 

— pe un număr se poate miza cu numărul respectiv (1 pină la 36), pe 
san (PD se mizează cu numerele 49 respectiv 50. Cîștigul este de 35 de ori miza. 

— pe numere între 1 și 12; 13 și 24; 25 și 36 se mizează cu codurile 37; 
38 respectiv 39, cîşticul fiind dublu. 

„—pe numere în prima coloană (1, 4, 7, 10...) în a doua coloană (2, 5, 
8, 11 ....) şi în a treia coloană (3, 6, 9, 12...) se poate miza cu codurile 40; 
4] respectiv 42, ciştigul fiind tot dublu. 

— pe numere între 1 şi 18; 19 și 36 se mizează cu codurile 43 respectiv 
44 ciştigul fiind doar miza 

— pe număr par sau impar se mizează cu codurile 49 respectiv 46; 
pe roșu sau negru cu codurile 47 respectiv 48, cîştigul fiind simplu. 

Pentru fiecare miză făcută de jucător trebuie să se indice două numere: 

— prima reprezintă codul (număr între 1 şi 50) 

—a doua reprezintă valoarea mizei). 
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10 DTm B(100),C(1005,T(1005,X(33),A(S0) 490 îF S < 25 THEN 620 

20 MAT X a ZER 700 GOTO 590 

30 P ae 1000 710 REM * 25 = 36 tCOD 395 aci * 
40 D =» 100000 720 IF S > 24 THEN 740 

SO PRINT * CITE MI2E FACETI? * 730 GOTQ 580 

60 INPUT Y 740 IF S < 37 THEN 620 

70 IF v < 1 THEN 50 750 GOTO 580 i 
SO IF Y <> INT(Y) THEN 30 760 REM * PRIMA COLOANA (COD 8053 251 * 
65 IF Yv > 50 THEN SO 770 Ko 

90 MAT A a Z2ER 780 FOR |. 1 TO 34 STEP 3 

100 FOR Can 1 T0Y 790 IF SC 1 THEN g.0 

110 PRINT "MI 2A "iC 800 Kai 

120 INPUT X,2 910 NEXT II 

130 B(C) „- 2 620 IF Ku î THEN 620 

140 T(C) ax 9Z0 GUTO 580 

150 IF X <€ 1 THEN (10 640 REM * CULOANA A DOLIA 1COD 81) 2s1* 
IF X>38 THEN 110 €50 Ka.o0 

170 IF X <> INT(X) THEN 110 860 FOR le 2 TO 25 STCP3 

4900 IF 2 < S THEN 110 970 IF S <) 1 THEN 870 

190 IF Z <> INT(Z) THEN 110 980 Ka ij 

210 IF 2 > 500 THEN 110 690 NEXT 1 

220 LF A(X) = 0 THEN 250 900 1F K = î TNEN 620 

230 PRINT * ACEST COD A MAI FOST * 910 GOTO seo 

240 BOTO 110 920 REM * CULOANA A TREMA (COD 42) 251 - 
250 AX) «1 920 Ka0 

260 NEXT C 940 FOR 1 a 3 TD) 36 STEP 3 

270 PRINT 930 IF S <) [ THEN 970 

275 PRINT “munem SE INVIRTE ROATA numa” co kai 5, 

276 PRINT 970 NEXT | 

290 Sa 1 + INTCaORND(X)) 930 IF Ko 1 THUN 620 

290 X(3) «a X(S)-+i 990 GOTO S3U 

300 IF Ss < 37 THEN. 3640 1000 FEN ” 1 - 19 (COD 43) îsi * 
310 IF S 2 37 THEN 340 1010 IF S < 19 THEN 1U30 

320 PRINT ” CISTIGA 0U “ 1020 GOTO 5280 

330 GOTO 490 1030 PRINT * CISTIQ “s8B(C)s“ BANI CU MIZA sec 
340 .-PRINT " CISTIGA 0 * 1040 Das D- GC) 

ş% GOTO 490 1050 Pa P e 6(C) 

RESTORE 1060 VOTO 1349 

370 K=0 1070 REM * 19 = 36 (COD 48) îsi * 
380 FOR 1 =. 1 TO 18 1080 IF S < 19 THEN 530 

390 READ R 1090 IF S < 37 THEN 1030 

400 IF R <> S THEN 420 1100 G0T0 550 

410 K= 1110 REM * NR. PAR ACOD 4885 îet * 
420 NEXT 1 1120 IF S$/2 <> INTtS/2) THEN 980 
430 IF K = 1 THEN 870 1130 IF S < 37 THEN 1030 

440 A9 = "NEGRU" 1140 GOTO 580 

450 PRINT * CISTIGA 936: , ":A9 1150 REM ” NR. IMPAR (COD 45) îe3 ” 
460 GOTO 490 1160 “IF S/2 a INTtS/2) THEN 3860 
470 As =” ALB ” 1170 IF s < 37 THEN 10230 

480 GOTO 450 1180 GOTO Ş20 

490 PRINT 1190 FEM “ ROSU CCOD 47) sei * 
500 FOR Ce: TO Y 1200 RESTORE 

si0 IF T(C3 < 37 THEN 1400 1210 Ka 0 
«520 ON T(C)-36 GOTO 560,660,710,760,840 1220 FOR 1 e. 1 TO 13 

$25 ON T(C)=41 GOTO 920,1000, 1070, 1110 1230 READ R 

$30 ON T(C)=45 QOTO 1150,1190,1290 1240 IF S< R THEN 1260 

940 GOTO 14C0 1Z50 Ka 

960 REM " 1 - 12 (COD 37) 241 * 1260 NEXT 1 

S70 IF S <e 12 THEN 620 1270 IFK îi THEN 1030 

S80 PRINT " PIERDERE “;B(C)ș* DANI CU MIZA * 1260 GOTO 580 

590 D= D + E(C) 1290 REM ” NEGRU (COD 48) îsi * 
600 PP - B(C) 1300 RESTORE 

610 GOTO 19540 . 1310 KK=o0 

620 PRINT * CISTIO ";B(C)u2s* BANI CU MIZA * 1320 FOR 1 a îi TO 18 

630 D = D = B(C)m2 1330 READ.R 

640 Pa P + BuL)*c 1340 IF S (> R THEN 1360 

6Y0 GOTO 1540 1350 Kai 

660 REM * 13 -24 (COD 38) 2+)3 * 1360 NEXT 1 

670 IF S >12 THEN 690 1370 IF Ka i THEN 580 


630 GOT Su 1380 IF S > 36 THEN 960 


Ruletă 207% 


1301 GAITO 1030 

1400 REM ” O SI 00 (COD 4% S] 50) 1:11 " 
1410 1F T(C3) <42 THEN 1490 

1420 IF T1(C) = 49 THEN 1450 

1430 IF T(C) a SO THEN 1470 

1440 GNTO 580 

1450 IF S a 37 [(HEN 1510 

1460 GOTO %80 

1470 IF S = 389.THEN 1310 

1420 GOTO 580 

1490 IF T(C) „ 3 THEN 1510 

1500 GOTO 580 

1510 PRINT ” CISTIGUL *;B(C)u3S;* CANI CU MIZA "CC 
1520 D= D - B(C) » 3$ 

1530 P = P + B(C) » 35 

1540 NEXT C 

1SŞ0 PRINT ” BANCA "3Dș” BANI ” 
1560 PRINT * AVETI ";P;"* BANI 
13570 IF PP) O THEN 1600 

1580 PRINT * NU MAI AVETI BANI ” 
1590 GOTO 1620 

1600 IF D)> O THEN 1420 

1610 PRINT ” S-A GOLIT BANCA ” 
1620 D = 101000 

1630 PRINTI * CONTINUAM? (DA/NU) ” 
1630 INPUT Ys$ 

1660 IF Y9$ = *DA” THEN 50 


1£60 STOP 

1670 DATA 1,3,9,7,9,12,14,16,18,19,21,22,25,27 
1475 DATA 30,32, 34, 36 

1680 ENI 


13.23. Trasarea bioritmului 


Programul solicită pentru persoana căreia i se trasează bioritmul urmăe 
toarele date : 

— data naşterii ; 

— data de la care se doreşte începerea trasării. 

Se verifică dacă anul, luna şi ziua de naștere sint corecte, dacă nu, se 
reia întrebarea. La fel se verifică data trasării și dacă data trasării este după. 
data naşterii. 

Se calculează numărul de zile trecute de la data nașterii pînă la data 
trasării. Diferenţa de ani (U-A) între trasare şi naştere ; diferența de zile 
(X—Z) între zilele de trasare şi naştere ; anii bisecți pentru care se adună cite 
o zi (B) ; lunile între naştere și trasare 2 (Zi) se iau în considerare la calculul: 
zilelor. Formula de calcul este 


N=(U—A)*365 4 5(Zi)+(X—2)+B 


Se trasează pe o perioadă de 15 zile, începînd cu data solicitată, bioritmui 
persoanei în cauză. Intervalul de 15 zile a fost ales pentru a avea o imagine 
suficient de bună (neînghesuită) pe ecran. 

După iniţializarea ecranului se trasează axa pe care se marchează cele 
15 zile. Subprogramul 1000 calculează valoarea curbei sinus în funcţie de varia- 
bila ] cu care se apelează. Pentru variaţia intelectului periodicitatea este 33. 
zile, pentru psihic 23 zile iar pentru fizic 28 zile. Curba intelect se marchează: 
cu “4+“, cea pentru psihic cu “*“ iar cea pentru fizic cu *.*“. Dacă cele 15 zile 
trec dintr-o lună în luna următoare se apelează subprogramul 1300. Pe ecran 
pe trasează 3 sinusoide cu caracterele de mai sus. 

Programul poate fi reluat pentru altă dată de lansare a trasării bioritmului, 
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PRINT "BB 10RI TH e 290 GOTO 310 
Din Tii2) 295 FOR [ =» Lei TO Y-i 
T(1) * 31 300 N e NeT(([) 
Ta): a 28 309 NEXT 1 
T(3) « 31 310 INITP 
T(4) » 30 320 PRINT AT(15,1);s--------saooo.-...|, 
T(S) «31 325 PRINŢ e------..-.----" 
T(6) » 30 330 FOR J «+ 2 TO 30 STEP 2 
T(7) 31 340 PRINT AT(15,J);*1* 
T(8) = 31 350 NEXT J 
T(9) » 30 360 ON Y GOTO 370,380,390,400,410,420 
T(30)e 31 362 H = Y-6 
T(11)= 30 365 ON H GOTO 430,440,450,460,470,480 
T(12)„ 31 370 PRINT AT(2,2);U;*,"*;X;","; “LANUARIE»* 
PRINT * DATA NASTERII * 375 GOTO 490 
PRINT * ANUL « 380 PRINT AT(2,2);U:*,";X;",*; “FEBRUARIE” 
INPUT A 385 G60T0 490 
PRINT * 2IUA * 390 PRINT AT(2,2);U;*,";X;","; “MARTIE” 
INPUT 2 395 GOTO 490 
PRINT * LUNA * 400 PRINT AT(2,2):;U;",*;X;*,"; "APRILIE* 
INPUT L 105 GOTO 490 
IFA > 1999 THBN 73 410 PRINT AT(2,2);U;*,*;X;","; “MAI” 
IF A < 1900 THEN 7S 415 GOTO 490 
IF 2 < 1 THBN 75 420 PRINT AT(2,2);U;",*;X;*,"; “LUNIE* 
VF 2 > 31 ȚHEN 75 425 GOTO 490 
IF L < 1 THEN 73 430 PRINT AT(2,2):U;*,*;X;",";"lULIES 
IF L > 12 THEN 73 433 GOTO 470 
PRINT * DATA LANSARII ANALIZEI « 440 PRINT AT(2,2):U;*,*,X;",*; “AUGUST» 
PRINT * ANUL * 4145 GOTO 490 
INPUT U 450 PRINT AT(2 2);U;*,";X;","; "SEPTEMBRIEE 
PRINT * ZIUA * 455 GOTO 490 
INPUT X Ă 460 PRINT AT(2,2);U;"*,*;X;*,";"OC'OMBRIE” 
PRINT * LUNA * 465 GOTO 490 
INPUT Y 470 PRINT AT(2,2);U;*.*;X;",";"NOEMBRIEC 
IF U < A THER 140 475 GOTO 490 
IF U 9) 1999 THEN 140 480 PRINT AT(2,2);U;*,*;x;*,"; “DECEHBRIE* 
IF X < 1 THEN 140 490 FOR K = 1 TO 21 STEP 10 
IE X > 31 THEN 140 S00 IF X < 10 THEN 530 
1E Y < 1 THEN 140 310 PRINT AT(16,K);X 
IF Y > 12 THEN 140 520 GOTO 540 
B2o0 530 PRINT AT(16,K+1);X 
CA 540 X s X+S i SP 
SSO IF X <= 28 THEN O 
IP INT(C/4) (> C/4 THEN 225 d sl a ana A 
C = C+i 570 HM a 29 
IP C <a U THEN 215 580 IF INT(U/4) + U/8 THEN 690 
IF INT(A/4) <> A/4 THEN 250 390. N. za 
IF L <a 2 THER 250 600 GOTO 670 
Be B-1 le te e 30 THEN 700 
6 a 
aaa NeRae) 630 IE V = 4 THEN 690 
Pe Asi 640 IF Y = 6 THEN 690 
IFY)> L THEN 295 660 IF Y . ii THEN 690 
POR mo ai 670 IF X «+ 31 THEN 700 
Na N-T(I) so 
NEXT 1 690 X „ X-H 
700 NEXT Kk 
710 FOR & 2 2 T0 30 STEP 2 
720 J = 33 
730 GOSUB 1090 
740 PRINT AT(H,E)p0+" 
750 J = 23 
760 GOSUB 1000 
770 PRINT AT(HR,E):; "ue 
780 J = 28 
790 GOSUB 1000 
800 PRINT AT(H,E);*.* 
810 N = N*i 
620 X = X+l 
930 IF T(Y) < 9 THEN 650 
840 G0T0 860 
E50 00SUB 1300 
860 NEXT E 
970 PRINT AT(27,2);“"INTELECT a +. * 
880 PRINT AT(28,2);"PSIHIC ..: 
890 PRINT AT(29,2); "FIZIC 2,8% 
900 STOP 
1000 Ș » INT(N-INT(N/J)uJ) 
1005 F = (P/J)uPina 
1010 FA s.SIN(F) 
1015 H = 1S-INT(Pn10) 
1020 RETURN 
1300 1F Y <> 2 THEN 1340 
1305 IF INT(U/4) <>) U/4 THBN 1340 
1310 IF X <> 29 THEN 1340 
1310 X 2 X+1 
1320 Y » Ye 
1325 IF Y <a 12 THBN 134Q 
1330 Y = 11 
1335 U = U+1 


RETURN 
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13.24. Dicţionar de sinonime 


Programul permite crearea unui dicționar de sinonime în două sau trei 
limbi. 

l-a creare (lansare program prin RUN) se stabilește dacă se creează în 
2 sau 3 limbi şi limbile în care se creează. I-a lansare cu GOTO 10 se utilizează 
dicţionarul creat. În acest caz se poate căuta după oricare limbă (sau după 
oricare rubrică) un cuvînt obţinînd celelalte cuvinte (rubrici). 

I-a lansare cu GOTO 10 mai există posibilitatea de completare a dicţio- 
narului (fişierului) creat cu cuvinte noi. 

Dacă la căutare nu se găsește cuvîntul cerut, se revine la secvenţa de 
căutare sau de completare a dicționarului. 

Programul poate fi utilizat şi ca bloc-notes, cele 3 rubrici corespunzătoare 
celor 3 limbi putînd conţine orice informaţie (de ex. numele unei persoane, 
adresa și numărul de telefon asociate). 


10 PRINT * DICTIONAR 0E SINONIME * 

20 IFN =: 0 THEN 400 

30 REM * DICTIONAR CREAT * 

10 PRINT * DATI CUVINTE NOI (DAat) * 
SO INPUT G 

60 IF OG = 1 THEN 400 

70 REM * CAUTARE IN DICTIONAR * 

80 PRINT "-DUPA CARE LIMBA CAUTATI? * 
90 INPUT Bs(T0) 


100 A 20 
110 IF 8$ = X$% THEN 180 
120 A =: 


130 IF 8% = Y$ THEN 180 

140 IF M = 2 THEN 80 

150 A = 2xi, 

160 IF 83 = 2% THEN 180 

170 GOTO 80 

180 PRINT * DATI CUVINTUL ÎN LIMBA *;8$ 
190 INPUT CS(T0) 

200 1 21 

210 1F Cs = Ds(l,ActTOA+L) THEN 260 

220 1 = tel 

230 1F 1 <= N THEN 210 

240 PRINT * NU EXISTA CUVINTUL *;C$ 

250 G0T0 go 

260 PRINT D$(1,TOL),-as, 

270 1F M = 2 THEN 290 

280 PRINT D$(1,Le1T02xL);*a*, 

290 PRINT D$(|,1e(H-1)uLTOMaL) 

300 GOTO 80 

A0O REM * CREARE SI COMPLETARE DICTIONAR * 
410 IF N <> O THEN 520 

420 PRINT * IN 2 SAU 3 LIMBI CREAFI? « 
430 INPUT M 

410 DIM D3(40,Mx15) 

ASO DIM Cs(15) 

460 PRINT * DATI LIMBILE DICTIONARULUI * 
470 INPUT X5 

A80 INPUT Y5 

490 IF MW = 2 THEN S10 

S00 INPUT 25 

510 L = 15 

520 IF N > 40 THEN 620 

530 PRINT * DATI CUVINTUL IN LIMBA *;X$ 
540 INPUT D$(N,TOI5) 

5:50 PRINT * DATI CUVINTUL IN LIMBA *;Ys 
S60 INPUT D$(N,16T030) 

570 1F M = 2 THEN 600 

580 PRINT * DATI CUVINTUL IN LIMBA *;2$ 
590 INPUT DS(N,31T045) 

600 N = Net 

610 GOTO 520 

620 STOP 

630 END 
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13.25. Ordonarea unui set de informaţii 


Programul posedă un set de date (în cazul de faţă datele constau din 
numele, greutatea și înălţimea unui grup de persoane) pe care le poate ordona 
după un criteriu dat. 

În exemplul de faţă, ordonarea se face pentru ordinea alfabetică, după 
greutate sau după înălţime. După ordonare, se afișează lista de date ordonată, 


n... : ete. i 
3 PRINT * ORDONAREA DUPA ALFABET * 
7 PRINT * GREUTATE SAU INALTIME * 
10  DIH A9$(20,10),S(20),H(29) 

15 N=0 

20 N = N+t 

25 READ AS(N,TO) 

30 READ M(N) 

3S READ S(N) 

40 IF AS(N) <> "STOP" THEN 20 
45 PRINT * DATI CRITERIUL DE ORDONARE * 
50 PRINT * 1 = ALFABET * 

SS PRINT * 2 = GREUTATE * 

60 PRINT * 3 = INALTIME * 

63 INPUT O 

70 REM * ORDONAREA * 

75 Cc=o0 

80 FORK = 1 TO N-i1 

865 ON 0 GOTO 90,100,110 

90 IF AS(K) > AS(Ko+i) THEN 120 
95 GOTO 170 

100 IF S(K) > St(K+1) THEN 120 

105 GOTO 170 

110 IF M(KD > M(K+1) THEN 120 

115 GOTO 170 

120 S = S(K) 

125 S(K) = Si(K+i) 

130 S(K+1) = 

135 B$ = AS(K,TO) 

140 AS(K) = AS(K+1,T0) 

145 AS(Kr1) = B$(T0) 

150 Ma M(K) 

155 M(KR) = M(K+1) 

160 M(Kk+1) = 

16$5 CC = Cel 

170 NEXT K 

175 1F CC) O THEN 75 

180 ON 0 GOTO 185,193,205 

185 PRINT ” NUME »;* INALTIME *;* GREUTATE » 
190 GOTO 210 

195 PRINT * NUME .;* GREUTATE * 
200 GOTO 210 

205 PRINT " NUME »;* INALTIME « 
210 FOR I = 1 TON 

215 ON 0 GOTO 220,230,240 

220 PRINT AS(1);" ";M(1);* *;Stl) 
22$ GOTO 245 

230 PRINT As(1);* *;S(1) 

23$ GOTO 245 

240 PRINT A$(1);* ";G(1) 

245 NEXT 1 

250 STOP 

260 DATA "POPESCU", 200,80 

265 DATA “CONSTANTIN",175,65.4 
270 DATA "BARNA*,180,70 

279 DATA "MARESCU",185,71 

280 DATA "MICUTU",203,91 

285 DATA "SToP",0,0O 

300 END 


13.26. Decodificarea numerelor romane 


Programul serveşte la transformarea numerelor romane în numere zeci- 
male. Se introduce numărul roman sub forma unui şir de litere. Decodificarea 
se face în baza regulilor definite prin DATA în liniile 440—550 din program. 
Regulile specifică succesiunea corectă de cifre romane ; o succesiune eronată 
este semnalată printr-un mesaj. Numărul decodificat este apoi afişat pe ecran. 


După introducerea numărului roman în șirul T$ şi a lungimii numărului 
(din cite litere se compune) în L, se citește prima literă şi se verifică dacă e 
din setul de litere permise într-un număr roman (M, D, C, L, X, V, 1). Prima 
literă poate fi oricare dintre acesie lilere. Aceasta e speciticută în prima linie 
de DATA unde de exemplu 100002 înseamnă că dacă litera e M valvarea este 
de 1000 iar după M pot să apară litere după regula (02) care se găseşte în linia 


Decodificarea numerelor romane 


următoare de DATȚA. Valoarea-l 
poate apare, deci se semnalează succesiunea eronată. 


10 

20 

30 

40 

50 

69 

70 

809 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
2090 
210 
220 
230 
240 
230 
260 
270 
280 
290 
300 
310 
320 
330 
340 
330 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
340 
530 
560 


în DATA înseamnă că nui:nărul respectiv ru 


DECODIFICAREA NUMERELOR ROHANE * 


x 


V 


REM 

DIH A(10,7),C$(7,)) 

MAT RFAD A(11,?) 

C$(l) = "MM" 

C4(2) = "0" 

Ct(3) = "Cc" 

C$(4) = "L” 

C$(S) = "x" 

Cs(6) = "vV" 

C$(7) =”) 

DIM T$(20) 

Ra) 

M=0 

C= 0 

P=:o0 

PRINT * DATi NUMARUL ROMAN 

INPUT Ts(T0) 

L=0 

FOR | 1 TC 20 

IF TS(ITOL) e. * THEN 220 

L = Lei] 

NEXT 1 

FOR 1» 1 TOOL 

ka 0 

FOR J > 1 T0 7 

IF TS(ITOI) <> Cst(J) THEN 28U 

K= 

NEXT ) 

Ir K <> O THEN 320 

PRINT * NUMAY ROMAN ERONAT 

GOTO 120 

X = AIR,K) 

IF X < O THEN 300 

C = (1 -ABS(SGN(K-P)))u(Cri) 

IF C > 2 THEN 300 

P=K 

M = M+iNT(X/100) 

R = X-10OxINT(X7100) 

IF R <> O THEN 410 

= 

NEXT 1 

PRINT M 

GOTO 120 

REM * DECODIFICAREA CONDITIILOR P! 
REM -* „DD C L 
DATA 100002, 50003, 10008, 5005, 


DATA 100002, 50003, 10008, 5005, 
„ 10008, 5005, 
„10004, 5005, 
„2006, 
„1006,307,110 
Ra | 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
END 


-1 


-1 


-1 


-) 
-) 
-) 


-] 
SĂ 


1009, 


507 


| 
„110 


1009,507,110 
1009,507,110 
1009 ,507,110 
1009,507,110 


-1 


„107 


80005, 30005, 10004, 5006, 1009,507,110 
8007 ,3007/,1006,307,110 
800, 300,107 


-1 
-1 


-) 
-] 


13.27. Nlira de control AMIC 


Programul generează o imagine de control asemănătoare mirei TV, cuprin- 
zind trasări de drepte orizontale și verticale, a unui cerc circumscris unui pătrat, 
şi a setului de caractere, inclusiv cele semigrafice. Mira obţinută poate fi utili- 


-] 


zată la reglajul calităţii imaginii TV. 
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10 REM * IMAGINB DB CONTROL * 
20 INITP 

30 PRINT AT(2,1);"Whhh IMAGINE DE CONTROL Bau: 
40  UINDOU 0,150,0,160 

SO  HOVE 152,75 

60 FOR 1 = 0 TO 2x»P!1 STEP P1/10 
70  DRAU 75+67uxC0S(1),75+67xSIN(1) 
80 NEXT | 

90 MOVE 0,142 

100 DRAU 160,142 

110 MOVE 0,132 

120 DRAU 160,132 

130 PRINT AT(45,1);*hH* 

140 PRINT AT(5,23);*ne 

150 PRINT AT(6,1);"*%H" 

160 PRINT AT(6,23); "Wu" 

170 PRINT AT(29,1); “Hu” 

180 PRINT AT(29,23); "Hu" 

190 PRINT AT(30,1);"%h* 

200 PRINT AT(39,23);*hu" 

210 MOVE 0,117 

220 DRAU 160,117 

230 MOVE 0,35 

240 DRAU 160,35 

250 HOVE 0,20 

260 DRAU 160,20 

270 MOVE 0,9 

280 DRAU 160,9 

290 PRINT AT(7,7); "WHHHhRhhun” 
300 PRINT AT(8,7);"HhWhhhhhhin” 
310 PRINT AT(9,7); "RHWRWhRRhh” 
320 PRINT AT(26,7); "HHHRWRHNRRN” 
330 PRINT AT(27,7); "HHHHHRR RN” 
340 PRINT AT(28,7);"Hhhhhhhhhhne 
350 MOVE 0,100 

360 DRAU 160,100 

370 HOVE 0,50 

380 DRAU 160,50 

390 MOVE 0,75 

400 DRAU 25,75 

410 MOVE 128,75 

A20 DRAJ 160,75 

430 MOVE 17,0 

440 DRAU 17,140 

450 MOVE 25,0 

460 DRAU 25,140 

470 MOVE 128,0 

480 DRAU 128,140 

490 MOVE 137,0 

500 DRAU 137,140 

510 PRINT AT(14,6);*!1"*4$787(0)x+,./" 
520 PRINT AT(16,5);"0123456789:;<=)2» 
530 PRINT Ar(18,5); "ABCDEFGHI JKLHNOP* 
540 PRINT AT(20,5); "RSTUVUZ CN] 
550 MOVE 41,0 

560 DRAU 41,50 

570 MOVE 41,100 

580 DRAU 81,180 

590 MOVE 107,0 

600 DRAU 107,50 

610 MOVE 107,100 

420 DRAU 107,140 

630 REM "STOP" 

610 60T0630 - 

650 ENDe 


13.28. Ceas electronic 


Programul solicită prin dialog ora exactă, după care afișează imaginea 
unui ceas cu arătătoarele în mișcare. În dreapta-jos a ecranului se afişează 
şi ora sub forma HHMM. Reglajul avansului se face în linia 250 din program. 
Constanta T are valoarea de aprox. 11 000, o valoare mai mare ducînd la “întir- 
zierea“ ceasului. 


213 


Ceas electronic 


10 
20 
30 
40 
30 
69 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
290 
210 
220 
230 


240 H 


230 
260 
27C 
280 
290 


13.29. Anagrame 


CEASUL 
DATI ORA DE PORNIRE e 


MINUTUL * 


PRINT 
PRINT 
INPUT 
PRINT 
INPUT M 
INITP 
PRINT 
PRINT 


aL =: = 


AT(6,13);0us 
AT(16,21);«m9 

PRINT AT(26,13);*me 

PRINT AT(16,5); me 

MOVE 52,52 

G = (M*P[/30) 

DRAU 52+30xSIN(G),S2+30xC0S(6) 
HOVE 52,52 

G = (11+M/60)%P1/6 

DRAU 52+30*SIN(G),S2+3OxC0S(G) 
PRINT AT(30,24);H;"1"*;M 

M = Meat 

IF M = 60 THEN 210 

GOTO 250 

H=0 
H = Hei 
IF H <> 24 THEN 25Q 


Ţ = 
FOR 1 = 
NEXT 1 
GOTO 60 
END 


11000 
1 TO 71 


Programui solieită introducerea unui șir de max. 20 de caractere, afişînd 
apoi combinaţii aleatoare ale șirului. 

Cuvintul se introduce în variabila șir A$, iar lungimea șirului în N. 
În masivul A (N) se aleg aleator cifre între 1 şi N care determină litera a A (I-a 
din cuvint. După completarea lui A (N) se afişează literele cuvîntului în ordinea 
din A (N). După afişare se reia ciclul. Programul se continuă pînă la oprire cu 
CTRI-/C, după care se poate relansa cu alt cuvînt (şir). 


REM * A NAGRaANA 
DIH A$(30) 
PRINT * DATE UN CUVINT » 
INPUT AS(TO> 
N-=0 
FOR 1 = 1 TO 20 
IF AS(1TOl) 2 " * TMBN 69 
M2 Net 
NEXT 1 
DIM A(N)> 
FOR î 31107? 
A(Z) » INTIRNB(X)a3+] 
U =.0 
FOR J = 1 TO 24 
IR 8(J C> A(Ze THEN 190 
Ya 3 
NEXT € 
tFU <9 0 THEN 130 
NEXT 2 

a. 

8 = 1 Ten 

BS = BO+AS(A(B)) 
NEXT 8 
PRINT 86 
NEXT X 
G9T0 100 
=] 
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13.30. Bugetul cheltuielilor zilnice într-o familie 


Programul solicită introducerea cheltuielilor efectuate pe zile ; noile 
cheltuieli se introduc după ultima zi completată într-o rulare anterioară. La 
cerere, se afișează totalul cheltuielilor și histograma cheltuielilor pe zile. 

Dacă se introduc cheltuielile pentru primele zile se lansează programul 
cu RUN. Pentru completare de cheltuieli se lansează cu GOTO 20. Histograma 
cheltuielilor se dă la cerere. 


10 DîM A(3i) 

15 1-1 

20 PRINT ” CITE ZILE INTRODUCETI? * 
25 INPUT N 

30 FOR J = 1 TON 

40 INPUT ALI) 

50 1= l*i 

60 NEXT J 

70 PRINT * VRETI HISTOGRAMA DA/NU * 
80 INPUT D4 ij 

90  1F D$ <> "DA" THEN3IO 


190 PRINT AT(!1.1),” HISTOGRAMA CHELTUIELILOR * 
195 PRINT AT(2,1);" PE -;1l;" ZILE " 

200 PRINT AT(3,1),*” TOTAL CHELTUIELI *;T 
210 UINDOU -10,110.-10,110 

220 MOVE 0,-10 

230 DRAU 0,100 

240 MOVE -10,0 

250 DRAU 150,0 

260 FOR J = 1 TO 

270 AtJ) = 100mA(])/C 

230 MOVE J»3,0 

290 DRAU J»3,A(J) 

300 NEXT J 

310 STOP 

320 END 


13.31. Microfişier 


Programul permite crearea și exploatarea unei microbaze de date generată 
sub forma unui tabel de articole. Fiecare articol poate conține mai multe cim- 
puri de lungimi diferite. 

l-a creare se defineşte baza de date, prin următorii parametri : 

— nume; 

— număr maxim de articole (max. 254); 

— număr cîmpuri/articol; 

— denumirile și lungimile fiecărui cîmp. 

În funcţie de parametrii daţi, se dimensionează tabelul ce va conţine baza 
de date. Se verifică dublele definiţii pentru numele asociate cîmpurilor. 

Exploatarea bazei de date se execută cu ajutorul următoarelor comenzi : 


a) introducere articol — se caută o linie (articol) vidă din tabel și se in- 
troduc valorile asociate fiecărui cîmp din articol. Introducerea unui articol 
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se execută prin afişarea numelui fiecărui cîmp şi introducerea conținutului 
cîmpului de către operator. 

Dacă numai există loc pentru un nou articol (tabel plin) se emite mesajul 
FIȘIER PLIN, după care se poate utiliza comanda de ștergere articol și intro- 
ducerea celui solicitat. 

b) ştergere articole după conţinut — se șterg articolele care conţin infor- 
mații identice într-un cîmp dat. Se solicită denumirea cîmpului şi conţinutul 
său. Se caută fiecare articol care conţine în cimpul respectiv informaţia dată 
şi se şterge articolul respectiv. 


c) listare articole — se listează articolele din cadrul fişierului. 
1) modificare cimpuri după conținut — se solicită numele cimpului, 
vechiul conținut şi noul conţinut. Se listează fiecare articol ce conţine cîmpul 


cu informația identică cu „conţinut vechi“ şi se întreabă operatorul dacă 
doreşte sau nu modificarea articolului. 


=) PRINT “HMICROFISIER 
10 IF P <> O THEN 215 


15 REM ” SE CREEAZA FISIER NOU * 295 s(D» -2 

20 PRINT * DATI NUME FISIER * 300 L = Lei 

25 INPUT PS 305 PRINT * MAI INTRODUCETI (DAzt? 

30 P-=1 310 INPUT C 

35 PRINT * DATI NUHAR MAXIM ARTICOLE * 315 IF C = 1 THEN 245 

40 INPUT T 320 GOTO 165 

45 PRINT * DATI NUMAR CIMPURI/ARTICOL * 325 PRINT * SE LUCREAZA CU FISIERUL *;P9 
50 INPUT N 330 REM " STERGERE ARTICOLE DUPA CONTINUT" 
SS DIM CS(N,10),L(N),S(T),S$(3,10),Xs$t(10) 335 PRINT * DATI NUME SI CONTINUT CIMP * 
60 HAT S = ZER 340 PRINT “ DUPA CARE SE STERG ARTITOLELE” 
65 PRINT ” DATI DENUMIRE SI LUNGIME CIMP * 345 INPUT S$(1,10) 

70 D:0 350 INPUT S$%$(2,10) 

25 FOR 1=1 TON 355 GOSUB 1000 

80 INPUT Cs(1,10) 360 IF 1 < O THEN 165 

85 INPUT L(I) 365 D= 1 

90 DD - DeLiIl) 370 GOSUB 1100 

95 NCaT | 375 IF D)> T THEN 165 

100 D: 1 380 s(D) =0 

105 FOR 1 = 1 TO N-l 385 L = L-l1 

115 xXs9 = Cs) 390 60T0 370 

120 FOR C = I+1 TO N 395 PRINT * SE LUCREAZA CU FISIERUL *:P0 
125 IF 1% <> C$(C) THEN 135 AOO REM *» LISTARE FISIER * 

130 Dn: -i 405 FOR 1 = 1 TON 

135 NEXT C 410 PRINT C$(1);*,-*: 

140 NEXT 1 415 NEXT |] 

145 |F ID = 1 THEN 160 420 PRINT 

150 PRINT * CIMPURI CU ACELASI NUME * 425 FOR 1 = 1 T01 

155 STCF 430 IF Sil) = O THEN 440 

160 L-0 435 GOSUB 1200 

165 PRINT * INTRODUCETI COMANDA * 440 NEXT 1 

170 PRINT * 1 = INTRODUCERE ARTICOL * 445 GOTO 165 

175 PRINT * 2 = STERGERE ART. DUPA CONTINUT * 450 PRINT * SE LUCREAZA CU FISIERUL *;,P* 
180 PRINT * 3 = LISTARE ARTICOLE ” 455 REM * HODIF.CIMPURI DUPA CONTINUT” 
185 PRINT * 4 = MODIF.CIMPURI DUPA CONTINUT * 460 PRINT * DATI NUME CIP Si CONTINU? 
190 PRINT * S = LISTARE PT. MODIFICARI *. 465 PRINT ” VECHI SI NOU": 

195 PRINT * 6 = TERMINARE SESIUNE ” 470 INPU: S$(1,10) 

200 INPUT Cc 475 INPUT S$$(2,10) 

205 ON C GOTO 215,325,395,450,540,153 480 INPUT S5%(3,10) 

210 G0T0 165 485 GOSUB 1000 

215 PRINT “ SE LUCREAZA CU FISIERUL *;P$9 490 1FE 1 < 1 THEN 165 

220 REM ” INTRODUCERE ARTICOLE * 495 D= 

225 IF L < T THEN 240 500 GOSUB 1100 

330 PRINT * FISIER PLIN * 510 1F D > T THEN 165 

235 G0T0 165 512 GOSUB 1200 

240 D= 1 515 PRINT ” SE MODIFICA (DAzi» 

245 IF D > T THEN 230 520 INPUT C 

250 IF S(D) = O THEN 263 525 IF C = 1 THEN 535 

255 D = Del 530 FS(D,A+1TOA+L(1)) = Sst3, 

260 60T0245 535 GOTO 500 | 

265 A =0 540 PRINT “ SE LUCREAZA CU FISIERUL *;P2 
270 FOR l2 1 TON $45 REH * LISTARE FISIER PT.HODIFIOARE 
275 PRINT Cs(l) 5 550 D= 1 

280 INPUT FS(B,A+1TOAeL(1)) S55 GOSUB 1200 

285 A = AeL) 560 IF D > T THEN WS 


290 NEXT 1 565 GOSUB 1300 
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570 D a Dei 

575 GOTO 1635 

1000 REM .* CAUTARE NUME CIMP »* 
1005 1.3 

1010 Aa. 0 

1015 IF 1 > N THEN 1040 

1020 IF Cs(1) = S$(]) THEN 1050 
1025 A = A+*L(I) 

1030 1 a I+i1 

1035 GOTO 1015 

10840 PRINT * NU EXISTA CIMP *;S$t1) 
1045 1 2 -1 

1050 RETURN 

1100 REM 2? CAUTARE CONTINUT * 
1105 IF D > T THEN 1130 

1110 IF S(D) <> 2 THEN 1120 

1115 IF FS(D,A+1TOA+L(1)) = S$t(2) THEN 1130 
1120 D = Do+l 

1125 GOTO 1105 

1130 RETURN 

1200 REM * TIPARIRE ARTICOL * 
1205 B 20 

1210 FOR J = 1 TO N 

1215 PRINT F$(D,B+I1TOB+L(J)),",, 
1220 B = B+L(J) 

1230 NEXT J 

123S PRINT 

1240 RETURN 

1300 REM ” MODIFICAREA * 

130S PRINT - AL CITBLEA CIMP SE MODIF 
1306 PRINT * O = NU SE MODIFICA * 
1310 INPUT C 

1315 IF C = O THEN 1360 

1320 PRINT * DATI CONTINUT NOU * 
1325 INPUT S$(3,10) 

1330 B = 0 

1332 IF C = 1 THEN 1305 

1335 FOR J = 1 TO C-1 

1340 8 = B+L(J) 

1345 NEXT J 

1355 GOTO 1305 

1360 RETURN 

1365 END 


e) Listare articole și modificare — se listează pe rind fiecare articol. 
Se întreabă dacă se doreşte modificarea unuia sau mai multor cîmpuri din articol. 


“Procedura continui pînă lasfîrșitul fişierului. Îi BNS 


ș- 
-? * 


13.32. Universul Conway 


Se poate studia prin aceasta creşterea, modificarea, înmulțirea și moartea 
celulelor lor dintr-o colonie. Viaţa celulei este influenţată de celulele înconjurătoare. 
E Lai inceput pe o zonă de N*M' locaţii se generează celule vii conform 
coordonatelor date de utilizator. O locaţie poate avea două situaţii: conţine 
sau nu 0 celulă vie. Din starea iniţială în baza legilor geneticii se ajunge la 
generaţii următoare. Starea locaţiilor în următoarea generație poate fi: 

1 — celula vie supravieţuieşte ; 

2 — celula vie moare; 

3 — s-a generat o: nouă celulă vie. 

Cele trei stări se determină” după următourele reguli : 


1. Supravieţuiește tiecare celulă dacă are două sau trei celule vii vecine. 


Fig. 


Universul lui Conway 


13.9. Organizarea ecranului 


pentru universul lui Conway. 


S PRINT * UNIVERSUL CONMAY “ 
7 PRINT n -o-noooooa-... o 


10 
13 
20 
29 
30 
49 


PRINT ”* DATI CIMPUL * 
ÎNPUT N,M 
IF N > 30 THEN 10 


IF M > 20 THEN 10 
DIM IUCN,M 
MAT 11 = ZER 
PRINT ” CITE. CELULE VII INTRODUCETI? * 
INPUT C 
IF C <= N>=m/a THEN 100 
BOTO So 
PRINT * DATI COORDONATELE CELULELOR VII * 
D FOR 1 = 1 TD C 
INPUT X,Y 
IF X> N THEN 120 
IF Y > M THEN 320 
IF X < 1 THEN 120 
IF Y < 1 THEN 12Q 
U(X,Y. =1 
NEXT 1 
INI IP 
PRINT AT(1,2)7" STAREA INITIALA ” 


GOTO 220 

INLTP 

PRINT AT(1,2);* GENERATIA URMATOARE * 
FOR 1 = 1 TON 


230 PRINT AT(1+2,1)3 

240 FOR Ja1T0M 

250 IF U(1,J) e O THEN 280 
260 PRINT “4"ș 

270 GOTO 290 

230 PRINT * *ş 


1 
Je 1 TON 
o 
Li 


1 
K <e M THEN 360 


n 
cr 
vw 
] 
LO 


THEN 390 
TO K 


EL 
Cam 


THEN 630 


cz 
A 
] 


n 
“ 
V 
L 


ȚHEN 660 


i 
Y*PTOQ 

INT( U(Y,X972) a U(Y<K)/2 THEN 690 
C + 


m NOR PO ONraNrAnAOT 


"Su 


ago 
xXx 


PP 
Li 
O» 20 
. 
Leni 
Ls 
(A 
[a] 
d 
“e 
N 
- 
a 
c 
= 
£ 
pe 
e 
“* 
se 
-. 
e 
O 


009 
gu 


- 0 

IF C = 3 THEN 810 
(F Cc <> 2 THEN 790 
GOTO 830 

D2>„==D0o+ a 

GOTa 220 

D=D+2 

ytJ, 12) =0D 

NEXT 

=i1c-i 

IF 1 <e M THEN St0 


2000 FOR Ja 1 TOM 
2005 FOR 1 = 1 TON 
2010 IF U(1,J) > 3 THEN 2025 
2015 1F U(I,J) > 1 THEN 2035 


2020 GOTO 2045 


2025 G=0 


2030 GOTO 2040 


2035 Ge 
2040 U(I,y) 
2045 NEXT 1 
2050 NEXT J 
2055 GOTO 200 


2060 END 


3 
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2. Moare — dacă are patru sau mai multe celule vii vecine, motivul este 
suprapopulaţia, 
— dacă are una sau nici-o celulă vie vecină,?motivul fiind izolarea. 


3. Naştere — în fiecare locaţie goală se naşte o celulă vie dacă are trei 
(nici mai multe nici mai puţine) celule vii vecine. 


13.33. Pătratul magic 


Într-un pătrat de mărime dată se așază numere în așa fel încît pe orizon- 
tală pe verticală şi în diagonală suma numerelor să fie aceeași. Există diferite 
metode de a genera pătratele magic. de diferite mărimi. 


Primul exemplu generează pătrate magice de grad impar utilizînd o gene= 
rare bazîndu-se de următorul algoritm : 


Fig. 13.10. Pătratul magic: (a) exemplu, (b) generale. 


Pe pătratul de gradul dat se desenează piramide de pătrăţele şi în diago- 
nalele astfel formate se trec cifrele în ordine crescătoare după care cifrele în 
afara pătratului se mută cu atitea poziţii cit este gradul pătratului. 

Al doilea exemplu generează mai multe pătrate de gradul impar utilizînd 
următorul algoritm : 

Din şirul de numere 1,2,3,4,5 ...pînă la gradul pătratului şi ,n, 
2*n, 3*n ... (unde n e gradul) pînă la (n—1)*n aleator se generează două 
pătrate de gradul dat sub forma: 

— se alege din primul șir un șir aleator și se pune în primul rind al pătra- 
tului ; 
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Ss PRINT * PATRAT MAGIC ” 


7 PRINŢ W =. a, 

10 PRINT “ DATI GRADUL PATRATULUL * 
20 INFIT N 

30 IFNY> O THEN 70 5 


40 PRINT * GRAI NEGATIV " 
So GOTO 20 

70 IF INI( N/2 ) <> N/2 THEN 100 
20 PRINT * GRAD FAR * 

28 GOTO 20 

30 IFN <= 9 THEN 100 

25 FRINT * GRAD MARE * 

27 GOTO 20 

100 TIIM*MIN,ND 

110 MAT M= ZER 

120 9 = EN+i)/a 

120 [= drd 

140 V=1 

150 IF MCI,.l) = 0 THEN 210 
1c0 IF V = Ni2& + 1 TIIEN 460 


170 1 = 1 + 1 
180 d = d 
190 IF I «>= N THCN 1350 


200 GOTO 210 
210 MI, = V 
220 IF V = Ni2 TIIEN 400 


230 V = V+ 1 
240 1 = [+1 
250 d d + 1 


220 IF IL> N THEN 200 
270 IF d t= N THEN 270 
230 d = 1 0 

230 GO 130 

200 IF 3 > N THEN 320 
3810 1= 1 

318 GOTO 17%A 

320 1 = 2 

Z30 d N 

240 GOTO 15 


410 [= 
417 GHUZIIB 300 

412 PRINT AT(E,L-lol1-19x39p3*1" 
420 FIR JI = 1frO0N 

azi C = 4 L)za-tl=1)x3 

az 1F MCI,.1) ya 10 THEN 430 
427 C=C-+ i 

420 FRINT AT(E,COM(I, JI” 
A4O0 NEXT j 

445 A=A+ 2 

450 Bz A+ II - 14 

Q20 3031 jR 500 

4€c5 PAINI 

470 ZI0P 

S00 FOR Ea O0TON 

SO4 GO3URB 600 

S05 FRINT AT(B- 1,B-1*+3xK-(1—10)u3)s 1” 
S1O0 NEXT Kk 

518 RETURN 

600 FRINT AT(R-2,B- (1-1)x3-1)3 
605 FOR L = 0 TO 3*»N 

a1O PRINT "9 

&19% NEXT L 

220 RETURN 

420 END 


— restul liniilor se completează pornind cu numărul din pătratul de după 
mijlocul linieidşi?continuînd cu primele ; 

— din șirul al doilea de asemenea se alege o combinaţie aleatoare; 

— restul liniilor se completează din acest șir dar acnm pornind din mii- 
locul liniei. 

Adunind cele două pătrate se obţine un pătrat magic: 


220 


EREIE 
EXEIE 


EAI 
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Fig. 13.11. Primul pătrat. Fig. 1312. Al doilea Fig. 13.13. Pătratul re- 


pătrat. 


PRINT * PATRAT MAGIC» .  * 
PRINŢ u =aoananaoao 


zultst. 


CIM AS), pie gta vai e RT DIR RR 680 DATA 0, 9,40, 13,20 


DIM C(Ş,3),D(S,Ss),E(s,S) e 670 END 
MAT READ C SE 

MAT READ P 

FOR X=1T0$S 

M(1) > INT( AND(X) 29) 

FOR 2=2T05 

M(Z) = INT( AND(X) * 3) si 


100 u=0 
110 FOR Ja 1 T0 2-1 

120 IF M(U) <> M(Z) THEN 140 
120 U=J 

140 NEXT J 

150 IF U <> O TMEN 90 

160 NEXT 2 

165 NEXT X 

170 FOR Ka 1 T05 

180 N(1) a INT( AND(X? = S)e i 
190 FOR Za 2 T053 

200 N(Z) = INTt AND(X) n 9) ei 
210 u=30 A 

220 FOR Ja 1 T0 2-9 

230 IF N(J) W N(Z2) THEN 250 
240 bay 

250 NEXT J 

260 IF U <3 O THEN 200 
27O0NEXT 2 

280 FOR Ja 9T0S 

290 ACI) e OM) 

300 B(_J) = PEN(IJD 


310 NEXT J 
315 NEXT X 
320 FOR 1 =. 1 TOS 
330 FOR Ja 2 TOS 


340 C(I,y) a at) 
350 D(1,J) «= By) 


360 NEXT J 
370 M(1) a Atâ) 
300 M(2) = A(59 
390 M(3) a Ati3 
400 M(4) a A(2) 
410 M(5> > At3) 
420 N(!) = B(33 
430 N(2) = B(4) 
440 N(3) 2 B(5) 
450, N(4) „ B(ţ> 
N(S5) » Bt2) 
MATA.M 
MAT Ba 
NEXT 1 
MAT EC s0 
INITP 


GEGONRIC UE pu Ssesast 


PRINT AT12,2)9* PATRAT? MABTE * 
PRINT/ATC3,83 30 — mamei 
120 


EI PRL 
g<s<eron 
4 E 
A C 
ş & 
g 


ii 
3 


8 
A 


SAD GOTO 49 
670 DATA 1,29.4.6 


Capitolul 14, Testarea resurselor hardware 
şi a interpretorului BASIC 


Procedura de punere la punct a microcalculatorului urmează următoarea 
înlănţuire de faze distincte : 

— pe placheta implantată cu componente electronice nealimentată se 
verifică — ohmetric — magistrala de adrese, date, comenzi; scurteircuite 
între alimentări (respectiv masă), cum și restul pinilor de circuite; 

— pe placheta alimentată, dar fără circuitele ISI se verifică prezenţa 
tensiunilor, nivelul lor, cum şi modulele funcţionale, în următoarea ordine : 
prezenţa şi corectitudinea semnalelor delivrate de sincrogenerator, corectitu- 
dinea tastării RESET şi INI; | 

— pe placheta alimentată cu circuitele L.SI prezentate și cu un EPROM 
de test programat cu NOP (de la adresa ()) se verifică magistrala de 
adrese şi date; 

— se verifică corectitudinea semnalelor microprocesorului de comandă 
a memoriei, de selecție etc. în conformitate cu diagrama de timp, înlocuind 
EPROM-ul de test cu un altul care asigură un program de scriere/citire în 
memoria RAM şi selecţia circuitelor EPROM de pe plachetă; 

— cu EPROM-ul monitor implantat se verifică corectitudinea tastării, 
se reglează interfaţa cu receptorul TV și casetofonul audio ; 

— se trec testele hardware, se verifică comenzile de monitor şi setul de 
instrucțiuni BASIC. 


14.1]. Prezentare generală a setului de programe de test 


Setul de programe realizat urmărește testarea logic-funcțională a modulelor 
harda microcalculatorului aMIC. 

Programul TEST aMIC are următoarele module, corespunzătoare modu- 
lelor funcţionale pe care le testează: 

R-RAM Testarea zonei de memorie RAM 

E-EPROM Testarea zonei de memorie EPROM 

D-DISPLAY Testarea afişării pe ecran 

K-TASTATURA Testarea preluării de caractere de la tastatură. 

Aceste programe pot fi executate în regim automat, ciclind, fără inter- 
venţia operatorului, sau în regim manual în care operatorul poate selecta 
testul dorit. 
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În afară de aceste teste există proceduri de testare a interpretorului BASIC 
și a transferului de informaţii dinspre/spre casetofon. 

Programul TEST aMIC este disponibil pe caseta magnetică, într-o va- 
riantă simplificată, sau este înscris pe EPROM. Completat cu cîteva subrutine 
modificate din monitor, formează conținutul unei capsule 2716 de 2 Ko. Acest 
cip este amplasat în locul primului cip din EPROM-ul suport al programului 
BASIC. Programul utilizează generatorul de caractere, tabela de simboluri 
pentru tastatură şi cîteva subrutine din monitor. 

Lansarea programului TEST AMIC se face prin intermediul monitorului, 
cu comanda 


Gp 800 (CR) 


Această comandă cedează controlul monitorului de comenzi al progra- 
mului de test. După ce se face inițializarea stivei şi a variabilelor program 
(în zona de memorie RAM 5FODH 5FFFH, corespunzătoare ultimei linii de 
caractere) se afişează mesajul : 


TEST AMIC 
MOD DE LUCRUI A SAU M. 


Apăsarea unei alte taste decit A sau M va produce menţinerea mesajului 
de mai sus. 

Următorul mesaj : 

IN 2 CIP1 SAU 2? 
cre numărul cipului de memorie EPROM plasat în poziţia 2. Această mențiune 
este necesară pentru textul EPROM, deoarece cipul care conţine TEST AMIC 
este plasat în poziția 1. În funcţie de răspunsul la acest mesaj se va lua în con- 


siderare CHECKSUM-ul cipului 1 sau 2 la testarea poziţiei 2. din cele & 
EPROM-uri. 


În funcţie de modul de lucru, tratarea se ramifică în continuare. 
REGIMUL AUTOMAT : Se cere: 
ORDINEA TESTELOR 


care vor fi executate în regimul AUTOMAT. 

În acest regim pot fi executate testele RAM, EPROMI și DISPLAY. 

Ca răspuns la acest mesaj se introduce combinaţia dorită a testelor, per- 
nuț îndu-se şi repetarea unor teste cu condiţia ca numărul total să nu depășească 
10. Dacă succesiunea de caractere R, E și respectiv D se termină cu C, atunci 
programul va cicla pe succesiunea de teste anterior introdusă. Comanda S inter- 
calată în succesiunea de comenzi va avea ca efect terminarea testelor şi reveni- 
rea în monitorul microcalculatorului. 


După introducerea celei de-a zecea comenzi, apare mesajul: 
ZONE RAM TEST: 


Acestea pot fi în îiuncţie de varianta microcalculatorului, următoarele : 
60—00 ; 60-C0; 60—80; 40—80, A0—00 (memoria RAM alocată DISPLAY- 
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ului poate fi în zona 40—60 sau 80—A0). În continuare vor fi executate testele 
înscrise în listă, în aceiaşi ordine. Dacă în lista testelor nu figurează comanda 
C atunci, după execuţie, sc trece controlul monitorului de bază. 


Regimul manual: 


Pe ecran apare mesajul : 


SIMBOL TESI ; aşteptindu-se una dintre comenzile R,E,D sau K, 
care să lanseze programul test corespunzător. Comanda S trece controlul moni- 
torului de bază iar orice tastă apărată reafişează mesajul de mai sus. De asemenea, 
după execuția unui test se revine cu același mesaj (la dispoziţia operatorului). 


14.2. Comanda E — testarea zonei de memorie EPROM 


Testul se execută în mod identic în ambele regimuri de lucru. Acest test 
constă în calcularea sumei de control pentru fiecare cip de memorie EPROM-2716 
şi compararea ei cu suma corespunzătoare anterior calculată și înscrisă într-o 
listă de „semnături“ în programul TEST aMIC. 


Programul care urmează calculează sumele de control ale celor opt cipuri 
2716 existente și afişează valorile respective. Acest program se utilizează la 
fiecare modificare a informaţiei în memoria EPROM, valorile obţinute pentru 
sumele de control trebuind să fie introduse în tabelul de „semnături“ din 
EPROM-ul de test. 


CSMART!:  MVI E,09 ; Se încarcă în E nr. cipului 
CS11 MOV B,E ; de început 
CALL CSC ; Calcul suma de control a cipului respectiv 
MOV D,A ; Se încarcă în D suma de control 
CALL CRLF ; Se afișează nr. cipului 
MOV A,B 
CALL BINASC 
CALL AF20H ; Se afişează suma de control 
MOV A,D 
CALL BINASC 
INR E ; Increment nr. cipului 
CALL KEYIN ; Aşteaptă comanda „,continuă'” 
CPI 43 
JZ CS1 
JMP MONIIT. 


Subrutina CSC calculează suma de control a cipului adresat 
Intrare: B =:nr. cipului adresat | 


leşire: A = suma;de control 
CSC: PUSH B 
MOV A,B ; calculul adresei de început 
RLC 
RLC 


RLC 
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MOV H, A ; (H, L) conţine adresa de început a cipului 
MVI L,00 
ADI 98 
MOV B,A ; B conține adresa H de sfirşit a cipului 
XRAŞA 
GSC1: ADD M ș calculul sumei de control 
MOV C,A 
INX H 
MOV A,H 
CMP B 
MOV A,C 
INZ CSC1 
POP B 
RET 


Deoarece cipul care conţine programele de test reamplasează în poziția 1 
(primul cip,de BASIC), cipurile 1 şi 2 se testează pe rînd, amplasîndu-se în po- 
ziția 2. Eventualele erori care apar se afişează sub forma: număr cip, sumă 
de control din tabel (martor), sumă de control calculată și o tratare a cauzei 
apariției erorii respective. 

Pentru testarea logicii de citire a memoriei EPROM se face, citirea şi 
calculul repetat al sumei de control pentru cipul care conține monitorul. O 
primă măsură care se poate lua în cazul apariţiei de erori este mişcarea cipuri- 
lor;în soclu, după care se va executa din nou testul EPROM în regim manual. 


14.3. Comanda K — testarea preluării de caractere de la tastatură 


Deoarece în cadrul acestui test este necesară intervenția operatorului, 
testul se execută doar în regim manual. După afișarea mesajului de 
start test se așteaptă acţionarea unei taste. Caracterul activat va îi pe o linie 
sau pe tot ecranul, funcție de comanda precedentă. 

CTRI--L — rămîne memorată și este activată prin start test. Caracterul 
corespunzător tastei apăsate va fi afişat pe o linie, apăsarea tastei DEL are ca 
efect ştergerea ultimului rînd, iar tasta BS repetă ultimul caracter tastat. 

CTRI.-C — rămîne memorată pînă la acţionarea CTRL-L și implică 
afişarea caracterului selectat pe întregul ecran. Tasta DEL şterge ecranul, 
iar tastele BS şi BLANK au același efect ca în regimul CTRL-L. 

În ambele regimuri, acţionarea tastei CR transferă controlul monitorului 
TEST aMIC. Testul se bazează pe observațiile operatorului. Se poate utiliza 
testul, prin menținerea pe ecran a caracterului H sau a caracterelor semigrafice 
pentru reglarea calității imaginii ecranului monitorului (dimensiunile rastrului, 
liniarizate, focalizare, afișare video-invers stabilă). 


14.4. Comanda D — testarea afişării pe ecran 


Acest test verifică funcţionarea circuitelor de ceas şi formatoare a semna- 
lului video-complex, cît şi a memoriei RAM din zona 4000-5FFFH rezervată 
afişării. 
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În primele 2 faze se afişează pe întregul ecran „table de şah“ avînd dimen- 
siunea pătratului elementar de una, respectiv patru, linii TV. Prima rețea se 
realizează prin înscrierea în RAM a octeţilor AAH şi, respectiv, 55H iar a doua 
prin afişarea caracterelor semigrafice avînd codurile 68H şi, respectiv, GEH. 

După durate egale de timp imaginile sînt negativate, ceea ce se realizează 
prin complementarea informaţiei din RAM. Eventualele erori de înscriere 
în RAM la complementarea informației sînt sesizate uşor pe DISPLAY de 
către operator. O caracteristică a „tablei de şah“ este egalitatea între nivelul 
de alb şi de negru din imagine. Pentru testarea modulatorului s-au realizat 
succesiuni de imagini care conțin cantităţi diferite de alb şi de negru. 

Astfel, în a treia fază se afișează pătrățelele negre pe fond alb, utilizînd 
caracterele semigrafice (dimensiunea pătratului fiind de 8 linii TV), iar în 
a patra fază ecranul este şters (nivelul maxim de negru). Complementînd suc- 
cesiv aceste imagini, nivelul de alb comută între 25% şi 75% în primul caz 
şi între 0% şi 100% în al doilea caz. Pentru a obţine stabilitatea imaginilor 
se fac reglaje asupra modulatorului, prin modificarea punctelor de funcțio- 
nare a etajului modulator şi modificarea raportului între semnalele de sincroni- 
zare şi cel de imagine care concură la realizarea semnalului vidco-complex 
(SVC). 

Pentru a testa adresarea intercalată a memoriei RAM-DISPLAY se afi- 
șează benzi verticale de contrast, de grosime echivalentă cu 8 linii TV. Benzile 
se afişează de la stinga la dreapta şi succesiv imaginea este complementată. 

Pentru tastarea îndelungată a funcționării microcalculatorului, cu afi- 
șarea pe ecran, S-au realizat programe în limbaj maşină sau BASIC de trasare 
a unor figuri geometrice (pătrate şi romburi înscrise, cercuri concentrice sau 
spirale). În continuare vor fi prezentate cîteva subprograme folosite pentru 
trasarea de figuri geometrice. 

Considerîndu-se ecranul TV ca un pătrat cu latura de 296 linii TV şi 
notind axa orizontală cu Ox iar cea verticală cu Oy, subprogramele testează, 
setează sau șterg orice punct TV de coordonate A (X, Y). 


Y 
2% 


Fig. 14.1. Ecranul TV. 


Subrutina ADR precizează poziţia bitului în memoria RAM-DISPLAY, 
corespunzător punctului A (X, Y). 
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Ca intrări se dau în registrele B şi C respectiv coordonatele X și Y iar ca 
ieşiri se primeşte în registrul HI. — adresa octetului și în acumulator poziţia 
bitului căutat, codificată binar. Cunoscînd poziția bitului în memoria RAM 
se pot opera asupra lui diferite acţiuni: 


testare (TESTP), ștergere (RESETP) și punere pe „Il“ (SETP) 


ADR PUSH DE 
PUSH BC 
LD HL,3FEgEH ; Adresa început zonă RAM-DISPLAY 
LD DE,OO0H minus 20H 
INC C DE= numărul de octeți corespunzător unei linii TV 
Ali: ADD HL, DE 
DEC C 
IP NZ, Al ; HL=— adresa primului octet din rindul TV căutat 
DEC HL. 
A2) INC HL 
LD A,B 
SUB A,08H 
LD B,A 
JP NC A2 
ADD A,08H; 
LD C,A 
INC C 
SCE 
XOR A 
A31 RILA 
DEC C 
JR NZ,A3 A= conţine un singur ''1”” în poziţia corespunzătoare 
POP BC bitului căutat 
POP DE 
RET 


SETP : CALL ADR 
OR (HL) 
LD (HL),A 
RET 

RESETP: CALL ADR 
CPL 
AND (HL) 
LD (HL),A 
RET 

TESP CALL ADR Testează bitul adresat 
AND (HL) ; Dacă este zero, flagul Z se poziţionează pe 1. 
RET 


Salvarea registrelor BC și DE 


HL conţine adresa octetului căutat 
A= conţine nr. de ordine a bitului căutat în octet 


CY="''1" 
A=00; 


Punerea pe ''1''a bitului adresat de registrele B și C. 


Ștergerea bitului adresat de registrele B și C 


14.5. Comanda R — Testarea zonei de memorie RAM 


14.5.1. Deserierea modurilor de lucru ale programului. După lansare calcu- 
latorul afişează mesajul: 


TEST RAM 


SWITCH : cerîndu-se 2 octeți pentru precizarea modului de lucru. În 
regim automat cei doi octeți care reprezintă SWITH SOFT vor fi înscriși 
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automat cu valorile : SWC1=01 ; SWC2=—22 şi vor fi tipăriţi pe ecran. În regimul 
MANUAL vor fi preluaţi de la tastatură, biții lor avînd următoarea semni- 
ficaţie : 


BIIO —g— 

1 execută și testul compiementar (subtestul adresare) 
BITI —g— 

i Oprire la eroare: continuă cu comanda Z. 
BIT2 —g9— 


1 Ciclează pe locaţia unde a apărut o eroare în textul SCCIL 
BIT3 —0— (BIT 10 inetectiv) 

1— Inhibă tipărirea erorilor 
BITA —g— 

1— Ciclu pe subtestul definit de biții 6,7 
RIC5 —gp— 

1— Inhibă tipărirea listei de erori după fiecare execuție a subtestului. 
BIT6,? — Cod subtest 
BIT8 —g— Scrie la începutui îiiecărui subtest numărul corespunzător. 

—1 Oprire după fiecare subtest. 


BIT9 —g 
—-1  Inhibă execuţia testului GALPAT 
BI110 —g 
—1 Tipăreşte numai prima eroare din modul cînd BIT3=i!. 
BITI1 —9 
—1 Execută subtestul PING PONG de 25 deori 
BIT12 —g 
—1  Inhibă tipărirea lui, END PASS **' 
BIT13 —-g 


—-l  Inhibă ciclul pe execuţia testului RAM 


Deci testul automat este caracterizat de următoarele : 

— execuţia nu se opreşte la apariţia unei erori; 

— execută subtestele în ordinea crescătoare a codului; 

— tipărește erorile și lista de erori; 

-— inhibă erorile și lista de erori; 

— inhibă subtestul GALPAT ; 

— execută subtestul PING PONG o singură dată; 

— inhibă ciclul pe executia testului RAM 

Cei 14 biţi se introduc după mesajul 'SWITCH * (în regimul MANUAL) 
sub fornia a 4 cifre hexa, astiel: 


BIT 15 BIT 14 BIT13 a iai BIT1I0 BIT9 BIT8 
SWITCH 
= BIT6 BIT5 i 4 BIT3 BIT? BITI i 


SWITCH! 
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Ordinea de introducere este: 
SWC2 (CR) SWCI1 (CR). 
Codificarea şi ordinea de execuție în regim AUTOMAT sînt următoarei : 


00— Adresare (ADR) 
01— Scriere-citire (SCCIT) 
02— PING PONG 

03— GALPAT 


14.5.1. Descrierea modurilor de lucru ale programului roșu 


Testul adresare : (ADR) constă în scrierea succesivă în pagini de memorie 
de cite 256 de octeți a unui contor cu valoarea 0-FFH. La începutul fiecărei 
pagini contorul este dublu incrementat astfel încit se poate identifica ușor 
fiecare pagină de memorie. Informaţia "scrisă arată astiel: 


COD 00 pi 02 ....FF 
C190 Dl 02 03 ....FE 
C200 02 03 04 ....FD 


* 
-. 


Testul se aplică pe zone compacte de memorie. 


Facultativ se poate repeta testul, inversind la scriere în memurie cei doi 
cuarteți ai contorului. 


Testul scriere-citire (SCCIT) detectează biții de memorie blocaţi la zero/unu. 

Se scrie succesiv în fiecare locaţie configurația iniţială (de exemplu AA), 
apoi complementul ei și din nou configurația inițială, verificîndu-se de fiecare 
dată corectitudinea operaţiei. Se aplică pe zone compacte de memorie. 


Testele PING PONG și GALPAT operează la nivel de modul de 16 Ko 
(0, 4000H, 8000H, C09DH). Aceste teste necesită o subrutină (SGP) care deli- 
mitează din zona compactă de memorie RAM limitele modulului de testat 
(ADINEF respectiv ADSUP). 


Testul GALPAT : detectează delecte de adresare, selecție multiplă, 
timp de acces. După ce se scrie în modul configurația inițială, se parcurge 
succesiv fiecare locaţie : se scrie în ea configurația complementară şi se verifică 
toate locaţiile modulului. Fiecare verificare este urmată de o verificare a loca- 
ţiei curente. La sfîrșit se reface locația curentă. Se repetă testul pentru contigu- 
rația complementară. Întrucît operarea cu fiecare locație implică verificarea 
întregului modul, testul durează de ordinul a citorva ore. 


Testul PING-PONG : este asemănător cu testul GALPAT, dar optimizat 
ca durată. După ce modulul de memorie este înscris cu configurația inițială 
se parcurge succesiv fiecare locaţie înscriindu-se cu configurația complementară. 
Pentru fiecare locaţie curentă se verifică 14 locaţii, fiecare verificare fiind 
urmată de verificarea locației curente. Adresele acestor locații se obțin pornind 
de la adresa locației curente, prin complementarea cite unui bit de adresă. 
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În continuare se prezintă programul care execută acest test. Subrutina 
SGP apelată anterior a pregătit adresele limită (ADINF, ADSVP) pentru 
modulele testabile. 


PISG PONG: 
Pl: 


P2: 


P21: 


P71 
P8 » 


P4u 


P5: 


CAL INIT 
CALL CYBR 
LDA ADINF 
MOV D,A 
MVI E, 
LDAX D 
XRA B 

JZ P21 
PUSH B 
PUSH D 
CALL RWERR 
POP D 

POP B 
MOV A,C 
STAX D 
LDA ADINF 
CPI AD 

JZ P7 

M VI H,15H 
JMP P8 
MVI H,14 
MOV A,H 
SUI G9H 
STA PNG 
MVI L,80 
PUSH H. 
MOV H,D 
MOV L,E: 
XT HL 
DCRH 

JZ P6 

MOV A,L 
RLC 

MOV L,A 
LDA PNG 
CMP H 
MOV A,L 
HTHLL 
INC P4 
XRA L 
MOV L,A 
IMP P5 
XRA H 
MOV H,A 


LDA ADMAX 
DCR A 

CMP H 

JC P9 

MOV A,M 
XRA B 

JZ P9 

PUSH B 
PUSH D 


CALL RWERR. 


; înițializare 
; copiază cuvint iniţial între (ADINF, ADSUP) 


; (D,E) — adresa cuvîntului test 


; Se verifică dacă la adresarea cuvîntului de test s-a 
înscris configuraţia iniţială. 


; subrutina de contorizare şi tratare a erorilor 


; Se înscrie în locația test configuraţia complementară 


; Se stabilește numărul de biţi care vor îi complensea- 
taţi din adresa cuvîntului test (pentru un modul întreg 
se complementează 14 biţi) 


; L — masca pentru complementarea unui bit dia 
adresă 


Adresa cuvîntului test în stivă iar în H şi L contorui 
şi masca pentru complementare. 


masca devine L=0OiFH 


Masca și contorul în stivă 
salt dacă PNG=>contor de biţi 


; complementarea bitului din L 


complementarea bitului dia H 


; Adresa sfirşit RAM 


; salt dacă H> HMANX. 


; locaţia derivată se compară cu configurația inițială. 
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POP D 
POP B 

P9: LDAX D ; se compară cuvintul test cu configuraţia complementată 
XRA C 


JZ P3 ; dacă nu este eroere salt la complementarea următorului 
PUSH B bit de adresă 
PUSH D 


MOV B,C 
GALL RWERR 
POP D 
POP B 
JMP P3 
P6 POP H ; S-a terminat un cilu de verificare 
MOV A,B 
STAX D ; Rescriere cuvint iniţial la adresa 
INX D cuvintului de test 
LDA ADSUP 
CMP D 
INZ P2 ; Dacă adresa următoares ADSUP se închide bucla 
MOV A,B i, externă 
MOV B,C ; schimbă cuvintul iniţial cu cuplementarul său 
MOV CA 
LDA VARPRI i 
XRI 29 ; Se testează şi modificălITEST 
STA VARPRI1 


ANI 26 ; Dacă INTEST=1 se execută testui şi pentru configu- 
INZ P1 raţia complementară 


RET 


14.5.2. Organizarea testului RAM. În figura 14.2 este reprezentată sche= 
matic organigrama testului RAM. După iniţializări şi mesaje de început test, 
se cere precizarea octeţilor SWC2, SWC1 în regimul manual, iar în regimul 
automat ei sînt afişaţi, fiind determinaţi interior. 


În regimul automat zonele de test RAM au fost precizate la intrarea în 
programul TEST aMIC. În funcţie de SWC4, se execută testele în ordinea 
crescătoare a codurilor sau se ciclcază pe testul dat de SWC67. 


Codul testului curent este memorat și, pe baza lui, se crează adresa de 
salt la subtest și codul eventualelor erori. Dacă SWC8=40 atunci la începerea 
unui Subtest se afişează codul subtestului curent, informird prin aceasta că 
testul anterior s-a terminat (în acest regim programul ru se opreşte după 
subtest). După execuţia subtestului, dacă SWC8=1 se dă mesaj: END** și 
se pune la dispoziţia operatorului. Comanda CIRL-G va executa listarea 
erorilor şi predă controlul monitorului TEST aMIC. Dacă SWC5=1 se îmbibă 
listarea erorilor și continuă testul. In cazul în care subtestul terminat a fost 
GALPAT, se afișează sau nu END PASS**—funcţie de SWCI2. Afişarea este 
utilă în cazul în care se ciclează pe testul RAM. Bitul SWCI1 decide dacă 
subtestul PING PONG se face o singură dată sau de 25 de ori. Se observă 
din organigramă complexitatea regimurilor de lucru a programului TEST RAM. 
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MESAJ: 
RTEST RAM * 
SWITCH: 


Se introduc octeții 
SWC 2, SWC1 de la 
tastatură . 


Cere: 
ZONE TES] RAM 


î 
g Cretu pe testul 
_—NU dat de SWC 67 
Se incepe cu Sa formează rr, 
testul .O testului 


Memoreaza codul 
testului 
Creează adresa de 
salt i testul curent 
<) DA 
Oprire după 
frecare subtest 
ME SAJ 2 
TESTa a 


Salt la subtest 
E xecutra subtestului 


E NDTEST 


îi 


Fig. 14.2 Organigrama testului RAM. 
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Semnificaţia comenzilor pe parcursul testului este următoarea : 
GTRIl„Z — repornire după subtest sau după oprire la eroare; 
GTRL.C — tipărește lista de erori la sfirşitul subtestului curent în regima 
manual ; 
GTRL-G — oprire TEST RAM după subtestul curent. 


14.5.3. Modul de tratare a erorilor. Codul erorilor apărute în cursul tes- 
telor (ERR) indică în care subtest a apărut acea eroare: 


01 — Eroare de R/W în testul de adresare (probabil pinii de adresă defecți) 
92 — Eroare de R/W în testul SCRIE-CITEȘTE 

03 — Eroare de R/W în testul PING-PONG 

04 — Ereare de R/W în testul GALPAT 


Prelucrarea , cantor:zarea 
erorii 


RET 


Fig. 14.3. Organigrama 


LISTAREA 

ERORILOR 
MESAJ: 

END RAM 


i MONITOR 
TEST 
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co 


MESAJ: 
END *» 


CTRL=G___A OMA 


NI 
LISTAREA 
ERORILOR 

NDĂ 
LISTAREA 
ERORILOR 


MESAJ: 
CONT. LA CTRL-2 


Continuă subtestul aL > 


dat de SWC 5,6 DA 


INCREMENT NU 


COD TEST 


testării eroritor 


eta 


PING PONG 


DA 


MESAJ: 
END PASSae 
DA 


Contor 
exec test 


ea 
Cicleaza tes? 
pentru RAM 
-i MONITOR 
NU TEST 
CONTINUA 
PING PONG 


< 2. 
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Mesajul tipărit la apariția unei erori are următoarea semnificaţie 3 


ERR i — Codul erorii apărute 

RDATA i — Data citită 

WDATA 1: — Data scrisă 

PC — Valoarea PC la apelul rutinei de eroare 
ADR: Adresa de memorie unde a apărut eroarea 
MODUL 1 Numărul modulului 


Fiecare modul de memorie RAM (16K) are o zonă contoare distinctă, 
cuprinzînd : 

— un octet în care este înscris numărul modulului; 

— 8 contoare pentru erorile de R/W, cîte unulĂpentru fiecare bit ; 

— un octet „depăşire, indicînd biţi pentru care numărul de erori > 266. 

Fiecare contor ocupă un octet, deci pot ti memorate distinct 256 erori. 
Pentru un număr mai mare de erori se afișează caracterul '* în dreapta ecra- 
nului respectiv. Memoria RAM utilizată pentru DISPI.AY nu este testată 
de către acest program, deoarece ea este testată în cadrul testului DISPLAY. 
"în figura 14.3 este prezentată organigrama de tratare a erorilor şi de 
oprire la eroare. 

După contorizarea erorii şi completarea bufferului de afişare, este testat 
bitul SWC3 care dacă este poziționat pe „1“ permite afişarea erorii. Dacă bitul 
SWC10=“1“, eroarea va fi afișată numai dacă este la prima apariție. Înainte 
de afișarea erorii, variabila FIRST este anulată. 

În funcţie de valoarea bitului SWCI1, programul de testare va fi oprit 
sau nu. Subtestul SCRIERE-GITIRE permite buclarea pe locaţia eronată, 
dacă valoarea bitului SGW2=“1“. După retestarea locației, programul aşteaptă 
comandă de la operator. Dacă aceasta este CTRI--Z, testarea locației eronate 


este reluată. 
Pentru celelalte subteste şi pentru subtestul SCCIT cu bitul SGW2=60, 


se va afişa mesajul 
STOP, ER., 


după care se pune la dispoziția operatorului. Se poate continua textul cu co- 
manda CTRL-Z, încheind sub rutina de tratare a erorilor. 


14.6. Testarea transferului de informaţii dinspre/spre casetofon 


Pentru faza de punere la punct a interfeței cu casetofonul se comandă 
înregistrări cu informaţie constantă 00H, FFH şi apoi AAH urmărindu-se cu 
osciloscopul forma și nivelul semnalului la intrarea în casetofon. Iza îel se urmă- 
reşte şi redarea semnalului la intrarea în interfaţa programabilă internă. După 
ce se fixează nivelul optim al volumului la înregistrare şi redare, se fac înre- 
gistrări lungi (pînă la 44 Kocteţi), cu informație constantă sau aleatoare, sau 
cu blocuri de date în care fiecare octet este identic cu octetul mai puțin semniii- 
eativ de adresă, corespunzător. Se execută de citeva ori Încărcarea acestor 
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fișiere în memoria calculatorului și se verifică încărcarea atit prin suma de 
control a fișierului cît şi prin programe de verificare a conţinutului fișierului 
îneărcat. Aceleași încercări se fac şi sub controlul interpretorului BASIG, cu 
ajutorul instrucţiunilor LOAD şi SAVE. 


14.7. Procedura de test a interpretorului BASIC 


Procedura de test a interpretorului BASIG constă în reluarea unui set 
de programe în care apar toate instrucţiunile specifice acestuia. 

Aceste programe de test, scurte, trebuie alese astfel încît să solicite toate 
posibilitățile limbajului. Procedura de verificare a bunei funcţionări a interpre- 
torului BASIC 14 K, constă în rularea de programe de test scrise în limbajul 
BASIC. Aceste programe utilizează pe cît posibil cîte o instrucțiune sau o 
funcție BASIC în așa fel încît se cunoaşte aprioric rezultatul, sau domeniul 
de rezultate. După rulare se verifică prin comparare dacă s-a ajuns la rezultatul 
așteptat. 

În continuare se prezintă cîteva programe de acest tip (v. și cap. 9). 


14.7.1. Verificarea funeţiilor standard |! 


Funcţiile standard rezolvate în interpretorul BASIG sînt : sinus, cosinus, 
tangenta, arctangenta, logaritm, funcţia exponențială, radical, ridicare la putere. 
Se ştie că: 


sin X! 
cos X 


tg x= 


Se verifică dacăpentru un X dat, funcţiile BASIC satisfac această egalitate. 


10 X=0 

29 Y=TAN (X) 

30 Z=SIN (X)/COS (X) 
49 PRINT Y; "="; Z 
50 STOP 


Se verifică egalitățile următoare : 
sin2x -+-cos2x= 1 


tg (arc tg (x))=x 


eln:r—yx 


19 FOR X=6 TO 10 

29 PRINT X, SIN (24 Cos (XOŢ2 
30 NEXT X 

49 STOP 


19 FOR X=—10 TO 10 

29 PRINT X, TAN (ATN (X)) 
39 NEXT X 

49 STOP 
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19 FOR X=1 TO 19 

33 PRINT X, EXP(LOG(X)) 
39 NEXT X 

49 STOP 


Se calculează rădăcina pătrată dintr-un număr dat de utilizator prin 
formula interactivă : 


1 A 
Vu [y+ A] 


unde A este numărul introdus; 
y, este o valoare arbitrară iniţială 


Iteraţia se opreşte cînd (y;41—Y:)=0. Se tipăreşte valoarea astfel obţinută. 
Be tipăreşte apoi şi valoarea obţinută prin funcţia BASIC de rădăcină pătrată 
(QR) şi se compară cele două rezultate astfel obţinute. 


190 REM "'RADACINA PATRATA” 

20 PRINT "DATI NUMARUL” 

89 INPUT A 

40 B= INT (AND (X)*A)+1 

50 REM ''B=Y ARBITRAR ALES" 
55 REM “IN FUNCTIE DE A” 

60 Y=0.5*(B+A/B) 

79 IF B=Y THEN 109 

80 B="Y 

99 GOTO 60 

100 PRINT ''RADACINA PATRATA” ; 
105 PRINT “'PRIN ITERATIE:'” ;Y 
110 X=SQR (A) 

120 PRINT ''RADACINA PATRATA” ; 
125 PRINT "PRIN FUNCTIE SQR: “';X 
130 Z=ABS (X—Y) 

149 PRINT ''DIFERENTA ;''; Z 

159 STOP 


Funcţia internă de generare numere aleatoare (RANLOM), pune la ds- 
poziţia utilizatorului cite un număr aleator în domeniul (0, 1). Se generează 
tabele de cite 10 numere variabile în diferite domenii, înmulțind numărul! 
aleator cu diferite constante şi/sau luînd valoarea întreagă cu funcţia INTE GER. 


10 REM “VERIFICARE RANDOM” 

29 PRINT ''VALORI REALE ÎNTRE 0 SI 1% 

3) FOR I1=1 TO 16 

49 PRINT END (X), 

50 NEXT 1 

69 PRINT ''VALORI REALE ÎNTRE 0, 10 SI 9, 109” 
79 FOR 1=|1| TO 10 

89 PRINT RND (X)*109; RND (X)*109 

90 NEXT 1 

199 PRINT ''VALORI INTREGI INTRE 0, 10 SI 0, 100” 
119 FOR I=1 TO 10 

120 PRINT INT (AND (X)*10); INT (AND ()*109) 
139 NEXT 1 
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149 PRINT “'VALORI INTREGI INTRE 9, 6 ŞI 10,29 
150 FOR 1=1 TO 19 

160 PRINT INT (AND (X)*6); INT (AND (X) * 10419) 
170 NEXT | 

180 STOP 


Prin funcţia PLOT se poate aprinde un punct pe ecranul TV, considerind 
«cranul de 64*G4 puncte. Se trasează curba sinus cu funcţia PLOT și se șterge 
cu funcția UNPLOT. 


19 INIT P 
20 FOR N=1 TO 64 E 
30 PLOT N, 22+2p*SIN (Npg2*PD « 

40 NEXT N 

59 FOR N=1 TO 64 

60 UNPLOT N, 22+20*SIN (N/32*P1) 
710 NEXT N 

80 STOP 


Funcţia RANDOM se poate verifica şi cu funcția PLOT. Se umple ecranut 
aleator prin funcţiile RANDOM şi PLOT cu puncte aprinse. Dacă această 
vuriaţie aleatoare umple relativ uniform ecranul, funcţia RANDOM este 
aleatoare. 


19 INIT P i: FE 
20 PLOT INT (END c)6a)g-1, INT (AND (X)*6441) 
30 GOTO 20 

49 ENC 


Funcţia PLOT aprinde un punct pe ecran şi UNPLOT stinge punctul pe 
ecran. Se poate astfel aprinde și stinge acelaşi punct obținind astiel o pulsaţie 
a unui punct. i 


10 INIT P7* 

20 X=RND (X) 

30 Y=RND (Y) 

10 FOR I=1 TO 19 

3 PLOT INT (X*64)+1, INT (Y*64)--1 
60 UNPLOT INT (X*64)+1, INT (Y7*64)4: 
70 NEXT I 

80 SrCP 


iuncţia PRINT AT (X, Y) permite afișarea pe ecran, la coordonate 
date, a unei informaţii. Ecranul este văzut ca formînd 32 de linii a cite 30 de 
Seas re. În instrucţiune, X este linia și Y coloana de unde se va incepe afişarea. 


pr. - nn i 


Se afişează pe ecran un “tabel de fermă ” canoscută. 


19 INIT P 

20 PRINT AT, 2); "TABEL CU NUMERE”; 
25 PRINT ''DE TELEFOANE” 

39 PRINT AT (3, 2); S$ 
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40 PRINT AT(6, 5); “NUME I PREFIX |; 
45 PRINT “NR. TEL.” 

50 PRINT AT (7, 2); S$ 

59 FOR I1=8 TO 16 STEP 2 

70 READ N $ (10) 

80 READ N 

109 PRINT AT(, 2); N$; '1'';P; "1; N 
119 PRINT AT(1$1, 2); S$ 

1290 NEXT I 

130 STOP 

149 DATA ''NUME 1'!, 971, 12345 

150 DATA ''NUME 2'', 99, 457321 

160 DATA ....: 


209) DATA -.-.: 
D100) SȘ e DI e e E a! 
229 END 


Aprinderea și stingerea unei zone prin instrucția PRINT AT (X, Y) 


10 INIT P 

29 X= INT (AND. 4)*64)$1 
30 Y=INT (RND (Y)*64)$1 
49 FOR I=1 TO 29 

5) PRINT AT(X, Y);".” 
80 PRINT AT (X, Di d 
70 NEXTAI 

80 STOP 


Hip Caracterul care aparţine la o valoare A se obține prin CHR$ (A). Setul 
de caractere se afișează prin următorul program. 


ip PRINT ''SETUL DE CARACTERE” 
20 FOR A=0 TO 256 

39 PRINT A, CHR$S(4A 

40 NEXT A 

59 STOP 


Funcţia INKEY$ permite utilizatorului să dea unei variabile şir valoarea 
tastei apăsate. Următorul program permite utilizarea aMIC-ului ca mașină 
de scris. Apăsarea tastei RETURN poziţionează pe linie nouă. 


19 INITP 

20 AS=INKEY$ 

30 B$=INKEY$ 

40 IFIAS=BSJTHEN 39 

59 REM "S-A TASTAT USI CARACTER” 
60 PRINT B$ 

70 GOTO 29 

89 END 
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Valoarea variabilei șir se obţine prin funcția VAI. 
Dacă la linia 20 schimbăm expresia şi la linia 30 valoarea lui X, putem 
efectua verificări pentru diferite expresii și valori ale lui X. 


10 PRINT "VALOAREA EXPRESIEI'| 
29 F$ =''2X4 2—X+1 

30 FOR X=1 TO 5 

49 T=VAL (F$ ) 

59 PRINT "EXPRESIA :''; F$. 

60 PRINT ''PENTRU x="; X ; 

70 PRINT "ARE VALOAREA |; 

80 NEXT X 

99 STOP 


Se permit în Interpretorul BASIC trei bucle suprapuse. În următorul 
program există trei bucle K, J și I. Totodată se lucrează cu instrucţiuni matriciale. 


19 PRINT ''ORDONAREA UNUI SIR” 
20 READ N 

30 DIM A (N) 

49 MAT READ A 

50 FOR I=1 TO N—1 

69 FOR J=I+1 TON 

70 IF A (D<A (]) THEN 130 

89 B=A (J) 

90 FOR K=J TO I+1 STEP —i 
109 A (K)=A (K—1) 

119 NEXT K 

129 A (D)=B 

130 NEXT J 

140 NEXT 1 

150 PRINT ''ȘIRUL ORDONAT”! 
160 MAT PRINT A 

170 STOP 

180 DATA 5 

199 DATA 10, 30, 5, 15,5 

209 END 


În funcţie de valoarea unui număr se pot executa diferite secvenţe de 
prozram cu instrucțiunea ON. Pentru a verifica această instrucțiune se tas- 
tează un număr X de utilizator şi dacă pe ecran apare „aţi bătut X“ atunci 
funcționează corect. 


19 REM ''VERIFICARE ON — GOTO' 

20 PRINT “'TASTATI UN NUMĂR” 

30 INPUT M 

49 ON M GOTO 80, 100, 120, 140, 160, 130, 200, 220, 240 
50 PRINT "ATI TASTAT 0” 


60 GOTO 20 
80 PRINT “ATI TASTAT 1” 
99 GOTO 20 
199 PRINT ''ATI TASTAT 2" 
119 GOTO 29 


129 PRINT ''ATI TASTAT 3" 
139 GOTO 290 
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140 PRINT “ATI TASTAT 4' 
159 GOTO 29 

160 PRINT “'ATI TASTAT 5' 
170 GOTO 20 

180 PRINT “ATI TASTAT 6” 
199 GOTO 20 

200 PRINT “ATI TASTAT 7” 
210 GOTO 20 

220 PRINT “'ATI TASTAT 8' 
230 GOTO 20 

240 PRINT “'ATI TASTAT 9'' 
250 GOTO 29 

260 END 


Utilizarea instrucţiunilor READ, MATREAD, RESTORE se exempli- 
iică în următorul program. A se observa că nu se ajunge niciodată la citirea 
valorilor 3 din blocul de date. a. 


10 REM “DATA, READ/EMAT READ'', 
20 READ A, B, C 

30 PRINT A, B, C 

40 READ A, B, C 

50 PRINT A, B, C 

60 RESTORE 

70 MAT READ D (6) 

80 MAT PRINT D 

99 STOP 

190 DATA 1, 1,1,2,2,2,3,3,3 
119 END 


Următorul program utilizează instrucțiunile cu șiruri de caractere. 


19 PRINT ''SUPRAFAŢA” 

15 PRINT ''DREPTUNGHI, TRIUNGHI, CERC” 
20 INPUT S$ 

30 IF S$ ='"'DREPTUNGHI'' THEN 70 

49 IF S$ ="'TRIUNGHI”' THEN 110 

50 IF S$ ="'CERC”' THEN 169 

60 GOTO 29 

70 PRINT ''DATI LUNGIMEA SI LATIMEA": 
50 INPUT B, C 

99 Z=B*C 

190 GOTO 1909 

119 PRINT “'DATI LUNGIMILE LATURILOR” 
120 INPUT A, B,C 

130 S=(A+B+C)/2 

140 Z=SQR (S* (S—A)*(S—B)*(S—C)) 

159 GOTO 199 

160 PRINT ''DATI RAZA” 

170 INPUT R 

180 Z=PI*R 42 

190 PRINT “SUPRAFATA; S$; '='";zZ 
200 GOTO 109 - 

210 END 


Apelul de subprogram scris în limbaj BASIC se face prin GOSUB nr. 
Prima instrucțiune RETURN întilnită provoacă revenirea la instrucţiunea 
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următoare instrucţiunii GOSUB executate ultima dată. În următorul program 
se verifică unele posibilități de salturi la subprograme în BASIC. Primu! 
RETURN întîlnit la care nu există pereche GOSUB provoacă oprirea execu- 
tării în continuare a programului. 


20 REM "'UTILIZĂRI GOSUB ȘI RETURN”! 

25 REM "APEL SPR. LA PRIMA INTRARE! 

30 GOSUB 299 

35 PRINT ''REVINE DIN SPR 20 

40 REM ''APEL SPR. INTERIOR” 

50 GOSUB 210 

69 PRINT ''REVINE DIN SPR 210” 

55 REM ''APEL SPR. 309 REVINE CU GOTO” 
69 GOSUB 30% 

85 PRINT ''REVINE AICI PRIN RETURN URMĂTOR! 
70 PRINT ''REVINE PRIN GOTO DIN SPR 399 
75 REM ''URM. RETURN E PRIMUL ÎNTÎLNIT”? 
80 REM ''DUPĂ GOSUB 399, REVINE DUPĂ EL” 
85 RETURN 

99 REM “AICI NU SE AJUNGE” 

95 STOP 

290 PRINT ''INTRARE SPR. 20%” 

210 PRINT ''CORPUL SPR. 29% 

220 RETURN 

309 PRINT ''INTRARE SPR. 30% 

319 GOTO 70 

400 END 


Pe ecran apare deci: 
Intrare spr. 290 


Corpul spr. 200 
Revine din spr. 200 


Corpul spr. 200 

Revine din spr. 210 

Intrare spr. 300 

Revine prin GOTO din spr. 300 
Revine aici prin RETURN următor. 


Utilizarea subprogramelor scrise în limbaj mașină e posibilă prin instruc- 
ţiunea CAL-I-. Următorul program în limbaj BASIG cheamă primul subprogram 
în eod mașină 


10 REM "CALL" 
20 CALL (1) 
30 STOP 


Subprogramul scris în limbaj maşină se introduce în memoria calcula- 
torului deeodificat în hexazecimal, prin funcţia S (substituție) din monitor. 

Se dorește introducerea unui subprogram care să genereze în mijlocul 
ecranului caracterul A, diferit de caracterul A dat de generatorul de caractere 
al monitorului. Se cheamă subprogramul de inițializare ecran al monitorului 
și subprogramul de scriere caracter. 


CALL INITV 
LXI H, (ADR MIJLOC ECRAN TV) 


rt — Microcalculatorul personal aMIC — vol. Il 
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LXI D, (ADR GENERATOR A PROPRIU) 
MVI A, 6 


CARGEN DB 6, 9, 9, F, 9,9, 


Se va folosi următoarea secvenţă de substituire S: 


6400 91 ; NR. SUBPROGRAM 
FF 66 -ADR SPR 1 
FF ; SFIRSIT TABEL SPR 
66FF CD A4 9 - CALL INITV 
21 0A 59 ; LX1 H, 590A 
11 OE 67 : LXI D, CARGEN 
sE 06 :- MVIA, 6 
CD % E :- CALL WR26 
C9 * RET 
670E 06 09 09 : CARGEN PT. A 


Pentru verificarea funcţiilor grafice MOVE, DRAW se dau în continuare 
citeva curbe specifice : 
a) O serie de curbe sinusoidale 


20 INIT P 

30 X=0 

40 Y=59 

50 Z=X 

60 MOVE X, Y 

70 FOR 1=6 TO 3*PI STEP P1/16 
80 DRAW Z, SIN (1)*254Y 
99 Z=Z+2 

190 NEXT 1 

110 X=X+2 

120 Y=Y+2 

130 IF X <=26 THEN 56 
149 STOP 


b) O serie de cercuri care formează un con. A, B — coordonatele centru- 
lui primului cerc. 


20 READ A, B 

30 READ X, Y 

40 INIT P 

59 FOR T=1 TO 25 

60 MOVE A+T, B 

70 FOR I=1 TO 2*PI STEP P1/10 
80 DRAW A+T*COS (ID, B4T*SIN (1) 
99 NEXT I 

100 A=A+X 

119) B=B+Y 

129 NEXT T 

136 STOP 

149 DATA 16, 10, 5,5 

150 END 
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ț |  c) Linii de lungimi variabile din cele patru colţuri[alei ecranului 


19 INIT P 
20 MOVE 0,0 

39 DRAW RND (X)*100, RND (X)*109 

40 MOVE 100, 100 

59 DRAW 109—RND (X)*100, 100—RND (X)*10 
60 MOVE 9, 109 

719 DRAW RND (X)*100, 100—RND (X)*109 

80 MOVE 100, 0 

990 DRAW 109—RND (X)*109, AND (X)*109 

199 GOTO 29 

110 END 
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Trasarea unei figuri cu instrucţiile BASIC RMOVE și RDRAW şi rotirea; 


figurii cu ROTATE. Se trasează un tr''inghi și se rotește acest triunghi. 


10 INIT P 

25 MOVE 0, 

30 FOR U=0 TO 2*PI STEP PI/19 
35 ROTATE U 


49 RDRAW 10, 

45 RDRAW 10, 19 

50 RDRAW —29, —1f 
55 NEXT U 

60 STOP 


Verificarea funcției WINDOW și VIEWPORT. Se trasează un cerc de 
o mărime dată la diferite valori pentru WINDOW şi VIEWPORT. Se observă 


că trebuie aleasă mărimea şi zona ecranului în funcţie de mărimea figurii 


19 INIT P 
20 REM ''WINDOW îi VIEWPORT IMPL ICIT”! 
25 REM ''0, 100, 0,1 

30 REM ''APARE PE ECRAN 1/4 CERC! 

40 GOSUB 29 

50 INIT P 

790 REM ''VIEWPORT IMPLICIT”! 

75 REM ''0, 100, 0, 100 

80 REM ''APARE TOT CERCUL ÎN MIJLOC ECRAN“ 
99 GOSUB 290 

190 INIT P 

110 WINDOW —59, 50, —50, 50 

120 VIEWPORT 50, 109, 50,1 

1390 REM “"'APARE CERCUL ÎN DREAPTA SUS” 
140 GOSUB 209 

159 STQP 

209 MOVE 25, 9 

210 FOR 1=0 TO 2*PI STEP P1/19 

220 DRAW 25*COS (1), 25*SIN (1) 

230 NEXT 1 

240 FOR 1=1 TO 59 

250 REM ''TEMPORIZARE'”” 


Li 
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260 NEXT | 
270 RETURN 
280 END 


Trasări de pătrate care se măresc ; în video normal şi video invers. 


20 INIT P 
30 PUT (34)=128 

49 GOSUB 109 

50 INIT P 

60 PUT (34)=160 

70 GOSUB 199 

89 GOTO 29 

190 MOVE 59, 50 

119 FOR L=10 TO 109 STEP 10 
120 MOVE 59—L/2, 59—L/2 

130 RDRAW L, 0 

140 RDRAW 9, L 

159 RDRAW —L, 9 

160 RDRAW 0, —L 

170 NEXT L 

189 RETURN 

190 END 


Bateria de teste, odată trecută, ne dă posibilitatea de a opera cu încredere 
cu exemplarul de aMIG. 
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ANEXA 3 


COLECȚIE DE PROGRAME PENIRU REZOLVAREA UNOR PROBLEME DE 
MATEMATICĂ DIN MATERIA CLASELOR A IX-A ŞI A X-A 


Proicctarea și realizarea microcalculatoarelor individuale în ţara noastră creează premisele 
necesare introducerii lor în învățămîntul liceal, în cadrul laboratoarelor de matematică, fizică, 
biologie, etc. 

Trebuie amintit faptul că în acest an a intrat în fabricație de serie, la Întreprinderea de 
memorii electronice din Timișoara, microcalculatorul aMIC. 

Ministerul Educaţiei și Învățămîntului a comandat circa o sută exemplare, care vor intra 
în acest an în dotarea unor instituții de învățămînt superior. Se prevede ca acţiunea de dotare 
să se extindă și la nivelul liceelor. 

ntre timp, specialiștii în tehnica de calcul din țara noastră au proiectat noi tipuri de 
microcalculatoare individuale, dintre care se amintesc: HC-85, PRAE şi DEGA-299. 

Interesant este microsistemul HC-85. care a fost proiectat la Catedra de calculatoare 
din Institutul Politehnic București și care va intra în curind în fabricaţie de serie la Întreprin- 
derea de Calculatoare Electronice. 

A vînd în vedere performanțele acestor calculatoare legate, de implementarea unor limbaje 
evoluate (BASIC, PASCAL, FORTRAN, MICROPROLOG, FORTH, etc.), posibilitatea de 
folosire a unui ecran color pentru vizualizare, cit şi faptul că ele vor putea intra în dotarea liceelor, 
în cele ce urmează se va prezenta o enlzcţie de prozsrame în BASIC, pentru asistarea studiului 
unor capitole de matematică din materia claselor a IX-a șia X-a. 


1. PROGRAME PENTRU CALCULE CU  POLINOAME 


Se prezintă programe pentru : 
— Impărțirea unui polinom de un grad oarecare n cu polinoame de gradul intii şi doi, 
ireductibile şi unitare în R, adică de forma ; x+a și x424+px+q, 
— calculul valorii unui polinom, 
— calculul rădăcinii reale a unui polinom într-un interval dat, știind că la capetele inter- 
valului [a, b], polinomul ia valori de semne contrare şi că în acest interval funcția polinomială 
este strict monotonă. 


1.1. PROGRAM PENTRU ÎMPĂRȚIREA UNUI POLINOM CU UN BINOM 


Fie polinomul: 
n 
y, a;x"-! și binomul: x+a. 
i=0 
n 
Considerind citul de lorma : > b.x"-f şi restul de forma : bn rezultă următoarele : 


i=l 


n n 
> a, x"! = $> 5, x5=t *(x+ a)+ bau sau 
i=0 i=0 


n n 
y, a; , Sula n Fe XR+l > (bipr+ ab,)- x", 


i =0 i=0 
Prin identificare se obțin următoarele relaţii : 
bg=0 
a =biupt+a-b, pentru i=0, 1, 2,...,n 
sau : 
bi =a;—a-b; 
şi restul: 


b.+a=a,—a: b; 
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20 PRINT “introduceți gradul n al polinomului” 

39 INPUT n 

40 PRINT 'n=”j n 

50 PRINT ““introduceţi coeficienţii polinomului SUMA” 
(a(i)*x1 (n—1)) 

60 DIM a (Q*n) 

65 DIM b (2*n) 

79 FOR i=0 ton 

80 PRINT “a (“; i;)=” 

85 INPUT a (i+1) 

90 PRINT a (i+1) 

100 NEXT i 

410 PRINT “introduceţi termenul liber a al divizorului” 
120 INPUT a 


130 PRINT “a=”; a 300 REM afisare rezultate 

200 REM calculul citului 310 FOR i=1 TOn 

210 b (1)=0 320 PRINT ”b (”;i;)-=";b”i+A) 
220 FOR I=1 TO n+i1 8330 NEXT Ii 

230 LET b(i+1)=a (i)—a*b (î) 340 PRINT *r=*; b(n+2) 

240 NEXT i 350 END 


1.2. PROGRAM PENTRU ÎMPĂRȚIREA UNUI POLINOM Di: GRADUL n CU 
TWRINOMUL x t2+pz+aq. 
Se consideră : 
| și 
—— polinomul de forma 1 > ax"? 
(a 0 
n 
— cîtul de forma: Ş, bx? 
l= 0 
— restul de forma rx+s, 
pita ideniificare, din relaţia ! 


n n 
> a, X*-t== > b, *-i . (x72+ px+ 9q)+rx+ s 
i=0 (==0 


se obțin urinătoarele rezultate: 
bo=0 T=ba 
b=l S=Da+at PPaua 
Dia = a4— PPiqa— bi 


10 REM împărţirea unui polinom de gradul n cu un trinom 
20 PRINT “introduceţi gradul n al polinomului“” 

30 INPUT n 

40 PRINT 'n=%;n 

50 PRINT “introduceţi coeficienţii polinomului SUMA (a (i) * x (n—1))” 
60 DIMA (2*n) 

65 DIMB (2*n) 

70 FOR i=0 TO n 

80 INPUT a (i+1) 

90 PRINT “a (“; i; 0)=%71 a (1741) 

100 NEXT i 

200 PRINT “introduceţi coeficienții divizorului x*2+p.x-+q” 
210 PRINT “introduceţi p” 

220 INPUT P 

225 PRINT “p=”jP 

230 PRINT “introduceţi q” 

240 INPUT q 

250 PRINT “q="; q 

300 REM să mii coeticienţilor citului 
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310 LET b (1)=0 410 YOR 1=—2 TO n 

320 LET b (2)=—0 420 PRINT 'b(; i; 7)=”; b(i4-41) 
330 FOR i=1 TO n+i 439 SEXT i 

349 LET b (i+2)=a (i)—p*b (i+1)—q*b (1) 449 PRINT 'r="”; b(n+2) 

350 NEXT i 450 PRINP s=",; b(n+3)+p*b(n$ 2) 
400 REM afişare rezultate 500 END 


1.3. PROGRAM PENTRU CALCULUI VALORII UNUI POLINOM DE GRADUI n 


Programul folosește algoritmoi lui Borner pentru calculul valorii polino:nului + 


n 
P (2)+ > aa"! 
i=0 


Polinomul P (x) poate fi scris și sub următoarea formă: 
P()=an+ră (,..F-x (ash x (as-b n (a9)))..... ) 


Calculul începe cu produsul cu cel mai mare grad de imbricare xe-a. 
10 REM calculul valorii unui polinom de gradul n 

20 PRINT” introduceţi gradul n al polinomului” 

30 INIT n 

40 PRINT ”n=”;n 

50 PRINT “introduceţi coeficienţii polinomului SUMA (a(i)*x 4 (n—i))” 
60 DIM a (*n) 

70 FOR i=0 TOn 

80 INPUT a(i+1) 

90 PRINT “a (”;, i; %)="; a(i+1) 

100 NEXT 

110 PRINT “introduceţi valoarea lui x” 

120 INPUT x 

130 PRINTI ''x=”; x 

200 REM calculul valorii polinomului prin metoda Ho rner 
210 LET p=a (1) 

220 FOR i=1l TOn 

230 LET p=p*x+a (+1) 

240 NENT i 

300 REM alișarea rezultatului 

SU PRINI “p(“; x, = D 

320 END 


1.4. STABILIREA SOLUȚIEI UNEI ECUAŢII PRIN METODA DIHOTOMIEI 


Se ştie că dacă funcţia î este continuă și strict monotonă în intervalul (a, b] și dacă 1 (a)- 


-t (b)<0, atunci ecuaţia : [ (x)=0 are o rădăcină unică în [a, b]. 


Dacă e este un număr pozitiv și dacă x,e[a, b], iar î (x, —e):f (xp+- e)<0, atunci kg este 


o rădăcină a ecuaţiei date cu o precizie e. 


Calculul numeric al produsului f (xe—e)et (xp? e) este în general aproximativ. Se impune 


ca precizia să [ie suficientă pentru ca 


î (xg—e):€ (pd e)a0. 
Se consideră jumătatea intervalului [a, b] : c=(a-pb)/2 şi se testează semnul lui f (a) « 
Dacă î(4)-f (c)<0, rădăcina aparține lui [a, ce], în caz contrar aparţine lui [c, b]. 
Se construiesc următoarele intervale : 
[ag, bg] =[a, b] 
[a, c], dacă f (a) (c)<0 
“le, b], dacă (a) t(c)>0 
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Lungimea intervalului [a„, b,„] este (b—a)/2 + n. Dacă se dorește o precizie e, atunci 
este suficient să se construiască (ax, b„] pentru un n astfel încit (b—a)/24 n<e. 


10 REM stabilirea soluţiei unei ecuaţii folosind metoda dihotomiei 
20 PRINT “introduceţi datele: a=lim. stinga; b=lim. dreapta; e=—precizia 


30 INPUT a 

35 PRINT “a=”;a 

40 INPUT 

45 PRINT “b=*;b 

40 INPUT e 

50 PRINT “e="; e 

51 PRINT “introduceţi gradul n al polinomului” 

52 INPUT n 

56 PRINT “n=*;n 

58 PRINT “introduceţi coeficienţii” 130 IF d=0 THEN 200 
60 DIM a (2*n) 140 IF d<0 THEN 160 
62 FOR i=0 TOn 150 LET a=c 

64 INPUT a (i+1) 153 LET x=z 

66 PRINT “a('; i; ')=";a(i+1) 155 GO TO 170 

68 NEXT Ii 160 LET b=c 

80 REM calculul lui f (a) si f(b) 165 LET y=z 

90 LET c=a 170 IF b—-a > e THEN 100 
92 GO SUB 1210 200 PRINT “c=";c 

94 LET x=z 210 STOP 

96 LET c=b 1210 LET p=a (1) 

98 GO SUB 1210 1220 FOR i=1 TOn 

99 LET y=z 1230 LET p=p*e+a (i+1) 


100 LET c=(a+b)/2 
110 GO SUB 1210 
120 LET d=x*z 


1240 NEXT i 
1250 LET 2=p 
1260 RETURN 


2. CALCULUL INTEGRALEI DEFINITE PRIN METODA SIWPSON 


Pentru calculul integralei definite se folosește formula: 


s=f E ()e dx = (h/3)e [(Yok Vaz) 4 (Ya at e e ct Yap-)lt 2 (92 act «+ ek Yap-a) 


unde : 


h = (x2p—Xo)/2-p este pasul, 
= numărul de diviziuni. 


a 


y= ((x—2)-x—1)%x+2. 


= f (x) se dă la linia 500 din program; în cazul de faţă 


10 REM CALCULUL INTEGRALEI DEFINITE 


20 PRINT *X0=”; 
30 INPUT D 

40 PRINT "X2P=” 

50 INPUT E 

60 PRINT “P=”; 

70 INPUT P 

80 B=(E—D)/2/F 

90 A=0 

100 X=D 

110 GOSUB 500 

120 A=Y+A 

130 X=X+B 

140 GOSUB 500. 
150X=4*Y+4A | 
160 X=X+B Y 


170 GOSUB 500 
180 A=Y+A 

190 F=F-—1 

200 IF F=0 THEN 220 
210 GO TO 40 

220 C=A*B/3 

230 PRINT "REZ=* ; C 
240 STOP 

500 Y=((X—2)*X—1)*X+2 
510 RETURN 


EDITURA TEHNICĂ 


dora de la vol: i 


: - din număr E fel de important: ie. Srogrzină, din toate domeniile de apli- 
"caţie, rezolvă probleme simple și complexe de matematică-fizică din în-- 
dustrie și învățămînt (aici este inclus și un îrdrumar pentru predarea mate: 
maţicii asistate de calculatorul persane) 3: aia. pogiriaii rezolvă jocuri, : 
trasează gratice și figuri etc. 


e Specialiștilor le. „atragem atenția asupra exijtenței. “ianitila. pentru . 

toate tipurile de monitoare aMIC și — în arest context. = asupra expunerii . 
-xomplete a insiste bin 280, cum și a uneia succinte a ImicrOproeg- a 

“soarelor 8080. A 


* Sin incluse urbana de: estaie: si indicaţii de iai ca și ideii: de 
“concrete la perifericele- utilizabile cu- eMIC - diemleep at lelevizoare. ee 
“SPORT, de exemplu), casete ș.a. Ai 


e Editura Tehnică. se mîndrește cu tate is. pionierat în sprijinirea = 
: introducerii intensive, a: calculatoarelor personale românești. și recomandă. 
"cu: căldură iconsuharea. atestei cărți din noul ciclu „Totul despre...“, că 

și a altor cărți de informatică, inclusiv'a. volumelor din seria pontingit AMC 


sa ete Ra A Sageata ftodeediei 


„Na. ' a, UR Lei a 


ce 


23 DATA” EXTERI za 


po i PER VER 
p î a 


i aie 
saga e 
| edi : 
E TE | 
ri 4 
"PRE= TIR LE 6 | 
e Des e e pi tie Ig? THE A | | 
PEG TE DATA - E*TERHI = 
Ba READ Pe 0 22-A LA AP IERetaa rate ata i PURE a oaia 
32 „REED aaa aaj | | 
At 30 AaaP Aa; | 
Ta ZE A e ca EXEA3c Can 
18 ZACH 
Pi sI.ZINC EIN 30 
OP PSI: “a AAA 
m] 253 FERD “ARICI CI: 
14 PERII „Aaa AA. 
E Ţ. aaa aa! 
Da PERI Aaaa ga! i 
1 PEARD Aaaa dai 3 
DI A,A2 asaza 
TA 'a580 -aaaâ'Bel. A 
a2 LIRI ȚE- Sea ap, | 
Cal î: A Zfoca e Ta Tate a _- 


